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Assembling LAP6 



The Standard configuration of LAP6 may be assembled from the IAP6 manu- 
scripts in this document following the procedure below. Using IAP6, clear 
the working area by pushing START 20 at the beginning of each numbered 
step. Then add the appropriate manuscript(s) (in the order given), convert, 
and copy the relevant binary quarters as described. Ignore any ERRORS 
following conversion. 

Block numbers are for Standard configurations; any configuration, of course, 
may be used to assemble any other configuration. 



ADD MANUSCRIPT(S) 
and CONVERT 


COPY 


#blks 


from block, 
(LAP6 Unit) 


to block, 
(Unit n) 


1 . MSDISPLY 


10 


340 


300 


2 . MSDISPLY 
ADDMS LO 


1 


343 


324 


3. FILECOMS 


4 


340 


320 


4. COPYFILE 


3 


340 


314 


5. COPY 


2 


340 


336 


6. CONVERT 


3 


340 


330 


7. CVDIS 


2 


340 


310 


8. DISX PX 
TELETYPE 


2 


340 


325 


9 . PRINT MS 
TELETYPE 


1 


342 


322 


10. LIST 

TELETYPE 


1 
1 
1 
2 
1 


341 
342 
343 
346 
346 




333 
327 
335 
312 
317 



Dnpa 



WASHINGTON UggLI UNIVERSITY 
ST. LOUIS. MISSOURI 63HO 

COMPUTER SYSTEMS LABORATORY June 12 1968 TELEPHONE: AREA CODE 314 

724 S/OUTH EUCLID AVENUE FOt " 7356 

To: LAP6 Users 

From: M. A. Clark ^flC 

The following troubles have been found in LAP6: 

The command -^LOgoL l eaves the z Register incorrectly set if the LAP6 tape unit 

is not zero. (The command -*L0 NAME, UNIT EQL works correctly, regardless of unit.) 

The commands -M>M ( LN ( , LN ) ) E0L and -*-LI (LN(,LN) ) EQL when there is no current 
manuscript, and the commands -*-"0, -V'(space), ->:W, and -*-:_ can damage LAP6. 
(-*PM (LN,(LN 3 )) NAME, UNIT EQL and -»-LI (LN,(LNJ) NAME, UNIT EQL work correctly 
regardless of the state of the current manuscript.) Since these are meaningless 
commands, most users have hopefully not been bothered. These commands can be 
deleted successfully with "del", as always, if noticed before the terminating 
EOL is struck. 

LAP6 can be corrected by changing 11 or 12 words. Since it is the responsibility 
of this laboratory to maintain the reliability of this operating system, we can- 
not, unfortunately, view this as an optional modification. Copies of the "LAP6 
Master Tape" released by the laboratory after this date will be corrected copies, 
and a correction sheet will be appended to the LAP6 Manuscript Listings . To 
minimize confusion of names for those already using modified versions, the cor- 
rected version is known as LAP6A; existing modification identification codes 
need not then be changed (e.g., LAP6-3L becomes LAP6A-3L, etc.). 

The LAP6A corrections are compatible with all modified versions of LAP6 described 
in "LAP6 Modifications" (Tech. Memo no. 62, CSL, Wash. Univ., St. Louis, June 1, 
1968). 

I am afraid I must recommend, with many apologies, that you correct your copies. 
A correction procedure and Listings supplement are enclosed. There is no Hand- 
book supplement. I will be glad to exchange LAP6A Master Tapes for LAP6 Master 
Tapes mailed here, if that is easier. 

Mr. Conrad Bjerke and the Laboratory Computer Facility of the University of Wis- 
consin are to be credited for recognizing two of the troubles. 



LAP 6 A 



Changes to LAP6 Manuscript Listings : 



As of June 1, 1968 the LAP6 Master Tape issued by the Computer Systems Lab- 
oratory differs from the LAP6 Manuscript Listings as follows. The tape now 
issued is the LAP6A Master Tape. The LAP 6 Handbook is not affected. 



LAP 6 



MSDISPLY: 



(p. 5) 



(p. 18) 
(p. 19) 

(p. 21) 

ADDMS LO: 



p CONT 
250 2176 
252 7737 



6Z-1 
6Z-6Y-3 



257 1461 #1N SAE i 1 

260 6253 JMP p-5 

261 1021 LDA i 1 

262 4263 STC p+1 

263 0000 TO META 



1555 7511 

« « 

1641 7541 

• • 

1654 7541 



JMP 2T-2 
JMP 4Z 
JMP 4Z 



1777 



UNUSED 



(p. 30) 1760 0000 #8T 7E) 



LAP6A 



p CONT 
250 2175 
252 7757 



6Z-2 
-20 



[META TABLE 
[LENGTH 



257 0221 #1N XSK i 1 

260 1461 SAE i 1 

261 6253 JMP p-6 

262 1021 LDA i 1 

263 7777 JMP 1777 



1555 7541 jm? 4z [check for 

current ms 
1641 7511 jmp 2t-2 [working area 

: : •. ms 

1654 7511 JMP 2T-2 



1777 4000 STC [DISPATCH META 



1760 0000 #8T 7E| 



[LAP 6 UNIT 



M. A. Clark 

Computer Systems Laboratory 

Washington University 

724 S. Euclid Ave. 

St. Louis, Mo. 63110 



Correction Procedure for LAP6A 

Making the following corrections to LAP6 produces LAP6A. Different con- 
figurations of LAP6 must be modified separately. 

1. To fix ~>PM, ->-LI, ->"0, -*"£>space>, -*:W, and ->:_ : 

a. RDC block 300 (or the first block of configuration n) into quarter 

Change the contents of seven registers: 

LAP 6 LAP 6 A 



P 
247 0061 0061 

250 2176 change to 2175 

251 0067 0067 

252 7737 change to 7757 

253 0227 0227 

254 6257 6257 

255 6654 6654 

256 6174 6174 

257 1461 change to 0221 

260 6253 change to 1461 

261 1021 change to 6253 

262 4263 change to 1021 

263 0000*change to 7777 

264 1040 1040 



WRC quarter in block 300 (or the first block of configuration n) . 
b. RDC block 303 (or the fourth block of configuration n) into quarter 6, 
Change the contents of four registers: 
LAP6 LAP6A 



154 6011 6011 

155 7511 change to 7541 

156 0231 0231 



240 7647 7647 

241 7541 change to 7511 

242 0721 0721 



*If the copy being corrected has been used, location 263 may not contain zero 



Correction Procedure, LAP6A, p. 2 



253 7660 7660 

254 7541 change to 7511 

255 0720 0720 



376 0000 0000 

377 0000 change to 4000 

WRC quarter in block 303 (or the fourth block of configuration n) . 

2. To fix -*-L0. Correct only configurations which run on tape units other 
than Unit 0. 

a. RDC block 324 of, say, configuration 1 (or the 25th block of non- 
Unit Q configuration n) into quarter 0. 

Change the contents of one register, depending on the original contents 

LAP 6 LAP 6 A 



357 1020 1020 

If 360 contains 0001 change to 1000 

361 0354 0354 



If _360 contains 0004 change to 4000 

If 360 contains 0005 change to 5000 

WRC quarter in block 324 if configuration 1 ( or the 25th block of 
non-Unit configuration n) . 



June 1, 1968 
Modifier : 

M. A. Clark 

Computer Systems Lab. 

Washington University 

St. Louis, Mo. 63110 



Configuring LAP6 



The following equality statements are used in the manuscripts in this 
document to describe the Standard configuration of IAP6 (Chart I, 
IAP6 Handbook) : 

7F = 270 Upper boundary of Lower File 

7D = 300 First block of LAP6 

7E = LAP6 Unit 

7A = 350 First block of manuscript Working Area 

7B = Working Area Unit 

7G = 426 First block of Index 

7C = 430 First block of Upper File 

To assemble LAP6 for a different configuration make up a LAP6 manuscript 
which redefines the appropriate equality statements. Add this "configura- 
tion manuscript" just before converting in each numbered step of the 
assembly procedure. 

In redefining the equality statements note that 7E and 7B are for Unit 
numbers. They must be equal to 0, 1_0, 40", or 5£. 7E need not, however, 
be equal to 7B (i.e. , LAP6 and the Working Area can be on different units). 

The remaining equality statements are for tape block numbers (octal) . The 
block number definitions must fit the formula: 

0£ 7F^7D<7D+50 8 £ 7A<7G<7C-13 776 

In addition, the last digit of 7D must be zero , and the last digit of 
7G must be 6_. 

A configuration definition which does not change need not be redefined. 



li 



Modifying LAP6 



If you are in a position to modify IAP6 for users other than yourself, 
it is recommended for clarity that the following modification procedure 
be followed: 

1 . Number the modification and pick an identifying letter for your 
area or institution, e.g. , "2W" might be the second modification 
from Wisconsin. Title the modified version of LA.P6 accordingly, 
e.g., "IAP6-2W". 

2 . Document the modification by supplying to the users both a 
IAP6 Handbook supplement and a Manuscript Listings supple- 
ment. Each supplement should state clearly; 1) the title of 
the modified version, 2) the title of the version being modified 
(i.e. , LAP6-2W might be a modified IAP6, IAP6-1W, or LAP6- 
something else), and 3) the name and address of the person 
responsible for the modification. 

a. The Handbook supplement should describe behavorial 
differences between the modified version and the ver- 
sion described in the LAP6 Handbook or in relevant 
supplements . 

b. The Listings supplement should provide actual listings 
of the new sequence, or the instruction context contain- 
ing the new sequence, of instructions; it should be 
clear to the reader which instructions in the Manuscript 
Listings , or relevant listing supplements, are affected. 

An example of documentation for a modification (1L, from St. Louis) 
is included. We will be glad to act as a clearing house if you need to 
know whether an identifying letter has been used. 



in 



Example: Handbook. Supplement 



IAP6-1L 



Modification to: IAP6 



IAP6 Handbook Supplement: 



The teletype commands PX, LI, and PM operate via DEC buffered 
teletype attached to the LINC on channel 14. The Relay Register 
is not affected; bit of the Relay Register may be used for anything 
without interference from LAP6-1L. 

The mnemonic EXC is recognized by IAP6-1L during conversion as 
the mnemonic for the code 740; the mnemonic PDP represents the 
code 513. The mnemonic MTT is not recognized by IAP6-1L. 
(See Chart III.) 



July 1, 1967 

Modifier: M. A. Clark 

Computer Systems Laboratory 
Washington University 



724 South Euclid 1V 

St. Louis, Missouri 63110 



Example: Listings Supplement 



LAP6-1L 
Modification to: LAP6 
LAPo Manuscript Listings Supplement: 







LAP6 




LAP6-1L 


MSDlSPLY: 


P 


com 




P 


COKT 




(P. 2) 


7^ 


1620 


BSE i 


7^ 


6076 


JMP p+2 CDO NOT SET RELAY 
REGISTER 


COPY: 














(p. 67) 


66o 

• 


k-jko 


"TM tI 

* 


660 


2630 

• 


"CE„ CEXC=7lK) 

• 


(p. 68) 


70^ 

• 


^733 

« 


"TH„ 


70^ 

• 


• 

^3 

• 


• 

"PP„ CPDP 


(p. 69) 


• 

7^3 


• 

0000 


* 

HLT 


• 

7^3 


• 

0513 


• 

OPR 13 COPR 13=PDP 


TELETYPE: 















(p. 135) 1570 5577 STC p+Y 1 1570 0301 

1571 0015 RTA I 1571 051^ 

1572 0071 SET i 11 1 1572 6017 



ROR 1 C JUSTIFY TELETYPE CODE 
OPR Ik Z DELIVER CODE 
JMP 17 CRETURH 



July 10, 1967 
Modifier: M. A. Clark 

Computer Systems Lab. 

Washington University 

72^ S. Euclid Ave. 

St. Louis, Mo. 63IIO 



v 



MSDISPLY 


',0 








VALUE 


LINE 


VALUE 


LINE 


1A 


0030 


17 


3T 


0426 


441 


IB 


0067 


57 


3V 


0620 


644 


1C 


0077 


71 


3W 


0710 


741 


ID 


0155 


153 


3X 


0737 


772 


IE 


0124 


120 


4A 


0273 


301 


IF 


1737 


2051 


4B 


1301 


1354 


16 


015! 


146 


4C 


1320 


1375 


1H 


1767 


2104 


4D 


1311 


1365 


IK 


0176 


175 


4E 


1331 


1406 


1L 


0212 


212 


4F 


0341 


352 


1M 


0232 


234 


4G 


1375 


1454 


IN 


0257 


261 


AH 


0353 


365 


IP 


0213 


213 


4J 


0364 


376 


1R 


01 13 


106 


4L 


1355 


1434 


IT 


0222 


223 


4M 


0320 


326 


1 W 


0133 


130 


4P 


0334 


344 


1Y 


1717 


2030 


4Q 


1274 


1346 


1Z 


17 52 


2065 


4S 


1345 


1423 


2A 


1637 


1741 


4T 


0705 


734 


2B 


1625 


1723 


4U 


0665 


714 


2C 


1610 


1704 


4Z 


1541 


1630 


2D 


1407 


1470 


5A 


1022 


1061 


2£ 


1572 


1 664 


5B 


1024 


1063 


2F 


1432 


1514 


5C 


1235 


1304 


2G 


1663 


1767 


5D 


1051 


1110 


2K 


1762 


2076 


5E 


1060 


1120 


21 


1652 


1755 


5F 


1070 


113! 


2J 


1703 


2012 


5H 


1076 


1140 


2K 


1014 


1051 


5J 


1115 


1157 


2L 


1627 


1726 


5K 


1251 


1321 


2M 


1000 


1034 


5L 


0264 


270 


2N 


1452 


1535 


5M 


1167 


1234 


2P 


1604 


1677 


5N 


1120 


1 163 


20 


I 667 


1774 


5P 


1137 


1202 


2R 


1673 


2001 


5V 


1261 


1332 


2S 


1615 


1712 


5W 


1202 


1247 


2T 


1513 


1600 


5X 


1222 


1270 


2U 


1476 


1562 


5Y 


1153 


1217 


2V 


1713 


2023 


5Z 


1165 


1232 


2W 


1547 


1637 


6A 


2001 


21 11 


2X 


0755 


1013 


6B 


2053 


2163 


2Y 


1530 


1616 


60 


2013 


2123 


2Z 


1560 


1651 


6D 


2237 


2351 


3A 


0523 


543 


6E 


2371 


2354 


3B 


0726 


760 


6F 


2143 


2253 


3C 


0745 


1001 


6G 


2065 


2175 


3D 


0751 


1006 


6L 


2077 


2207 


3E 


0510 


527 


6Q 


2111 


2221 


3F 


0536 


557 


6V 


2123 


2233 


3G 


0432 


447 


6Y 


2234 


2345 


3H 


0452 


470 


6Z 


2177 


2310 


3J 


0551 


573 


7A 


0350 


2363 


3K 


0557 


602 


7B 


0000 


2364 


3L 


0567 


613 


7C 


0430 


2365 


3M 


0624 


651 


7D 


0300 


2366 


3N 


0650 


676 


7E 


0000 


2367 


3P 


0374 


407 


7G 


0426 


2370 


3R 


0405 


420 








3S 


0416 


431 









LAP6 



MSDISPLY*! LN=i 



LAP6 



p CON T 



15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
42 
42 
43 
44 
45 
46 
47 
50 
5! 
52 
53 
54 
55 
56 
57 
60 
61 
62 
63 
64 
65 
66 



0701 
7300 
6020 
6030 
6030 
4020 
0077 
6073 
0704 
0300 
6073 
0062 
6777 
1020 
2065 
1062 
0017 
1062 
0063 
7001 
0065 
2237 
1020 
5347 
1040 
0735 
4721 
2044 
2144 
4151 
2224 
4576 
4762 
2213 
1040 
0524 
4526 
2276 
1040 
1025 
0244 
5066 



67 7261 

70 5072 

71 0017 

72 4227 

73 0015 

74 1620 

75 0001 

76 0014 



CLAP6 MANUSCRIPT INPUT AND DISPLAY 
CINITIAL SETTINGS 
315 

RC6 7E 

71 7D CINITIAL START 
JMP 20 

1A C START 20 

1A 

20 

i 17 

1C-4 

7E 



JMP 

JMP 

STC 

SET 

JMP 

WRC 

7D 

JMP 1C-4 
#1A SET i 2 

6777 

LDA i 

2065 

STA i 2 

COM 

STA i 2 

SET i 3 

7001 

SET i 5 

6D 

LDA i 

5I7A-1 

STA 

38+7 CBN FOR BQ 

STC 3W+11 

P-4 CFOR CHECKING 

1 W+ 1 1 CI 000 

1G 

CFOR CONTROL 



1T+2 
3L+7 
2X+5 
IP 



3A+3 
4A+3 



ADD 

ADD 

STC 

ADD 

STC 

STC 

ADD 

STA 

3A4-1 

STC 

ADD 

STA 

5S+1 CLNSIFRAME 

ROL 4 CI 40- VERT 

STC 5E+6 
CKNOB SET 
#1B JMP 5V CREAD KNOB 

STC 5F+2 

COM 

STC 1T+S CTAPE OK 
CSET TELETYPEWRITER 

RTA 

BSE i 

1 

ATR 
C FIRST CHARACTER 



WA TOO FULL 



BLOCK NOT FULL 



MSDISPLY,2 


I LN = 71 


p 


CO NT 






77 


00 66 


#1C 


SET i 6 


100 


7000 




-777 


101 


7022 




J MP 5A 


102 


0515 




KBD 


103 


0077 




SET i 17 


104 


5766 




1H-4000 CCHARS 


105 


1437 




SHD i 17 


106 


7717 




JMP 1Y tlST CASE 


107 


1437 




SHD i 17 


no 


6101 




JMP 1C+2 CEOL 


11 1 


1437 




SHD i 17 


112 


6155 




JMP ID CDELETE 






C REGULAR CHARACTER 


113 


1362 


#1R 


STH i 2 


1 14 


6432 




JMP 3G 


115 


6452 




JMP 3H 


116 


6212 




JMP 1L 


117 


6374 




JMP 3P 


120 


0226 




XSK i 6 


121 


7737 




JMP IF 


122 


1020 




LDA i 


123 


0012 




12 CLINE TOO LON 






£EOL 


124 


1362 


#1£ 


STH i 2 


125 


0046 




SET 6 


126 


0003 




3 


127 


1326 




LDH i 6 


130 


1420 




SHD i 


131 


5600 




5600 


132 


6232 




JMP 1M 






t REGULAR EOL 


133 


6557 


#1W 


JMP 3K 


134 


0017 




COM [CONSTANT 


135 


2526 




ADD 3A+3 


136 


4526 




STC 3A+3 CMAX LN 


137 


6222 




JMP IT 


140 


6432 




JMP 3G 


141 


6452 




JMP 3H 


142 


6212 




JMP 1L 


143 


6374 




JMP 3P 


144 


1000 




LDA £ CONSTANT 


145 


0526 




3A*3 


146 


0470 




AZE i 


147 


6155 




JMP ID 


150 


1020 




LDA i £WA FULL 


151 


6350 


#1G 


6I7A 


152 


1460 




SAE i 


153 


6425 




6I7G-1 CINDEX-1 


154 


6077 




JMP 1C 






CDELETE WHOLE LINE 


155 


1020 


#1D 


LDA i 


156 


0001 




! 


157 


1440 




SAE 


160 


0526 




3A+3 


161 


6163 




JMP P+2 


162 


6030 




JMP 1A 



LAP6 



MSDISPLY*5 


I Li 


^*!61 




p 


CONT 








163 


1440 




SAE 




1 64 


0524 




3A+1 


i 


165 


6167 




JMP 


p«-2 


!66 


6077 




JMP 


1C 


167 


0017 




COM 




170 


6561 




JMP 


3K+2 


171 


252 6 




ADD 


3A+3 


172 


4526 




STC 


3A+3 


173 


6222 




JMP 


IT 


174 


6176 




JMP 


IK 


175 


6077 




JMP 


1C 






t DELETE 


UNFINISHED L 


176 


0050 


#1K 


SET 


10 


177 


0000 









200 


6624 




JMP 


3M 


201 


1020 




LDA 


i 


202 


7776 




-1 


C CONSTANT 


203 


6214 




JMP 


1L+2 


204 


4215 




STC 


1L+3 


205 


6654 




JMP 


3N+4 


206 


6200 




JMP 


1K+2 


207 


0043 




SET 


3 


210 


0002 




2 




211 


6010 




JMP 


10 






£ COUNT PLAYGROUND 


212 


1020 


#1L 


LDA 


i 


213 


0001 


#1P 


1 


C CONSTANT 


214 


1160 




ADM 


£ 


215 


1740 




PLAYGROUND SCORE 


216 


0450 




AZE 




217 


0220 




XSK 


i 


220 


2144 




ADD 


lW+tl £1000 


221 


6000 




JMP 









£TAP£ NOT OK 


222 


0011 


#1T 


CLR 




223 


4762 




STC 


2X+5 £CLEAR i 


224 


4227 




STC 


p+3 


225 


6000 




JMP 





226 


1520 




SRO 


i 


22 7 


7777 




7777 £0K IF ONE 


230 


0220 




XSK 


i £0K 


231 


6000 




JMP 


£NOT OK 






£M£TA CHECK 


232 


1326 


#1M 


LDH 


i 6 


233 


1120 




ADA 


i 


234 


7770 




-7 


C CONSTANT 


235 


0451 




APO 




236 


6273 




JMP 


4A 


237 


1306 




LDH 


6 


240 


1420 




SHD 


i 


241 


3100 




3100 £FRE£ META 


242 


7703 




JMP 


2J 


243 


0246 




ROL 


6 


244 


4000 




STC 





245 


1326 




LDH 


i 6 


246 


2000 




ADD 






LAP6 



LINE OR META 



META EXIT 



M3DI SHLY*^ 


i Lf 


vj=251 


L, 


p 


CO^T 








247 


U £> I 




SET 


i I 


250 


2176 




6Z-1 


CMETA table 


251 


0067 




SET 


i 7 


252 


7737 




6Z-6Y-3 CLENGTH 


253 


0227 




XSK 


i 7 


254 


62 57 




JMP 


s»+3 


255 


6654 




J MP 


3N+4 


256 


6174 




JMP 


1K-2 


257 


1461 


#1N 


SAE 


i 1 


260 


6253 




JMP 


P-5 


261 


102! 




LDA 


i 1 


262 


42 63 




STC 


p+1 


263 


0000 




TO META 






CKNOB SET 






CNEW LINES 1 FRAME 


264 


1040 


# Si- 


STA 




265 


1072 




5F+2 


266 


1040 




STA 




267 


1025 




53+1 


i CLINES1 FRAME 


270 


0244 




ROL 


4 


271 


5066 




STC 


5E+6 C VERTICAL 


272 


7024 




JMP 


5B 






ll LOCATES 






£ LOCATE 


# 


273 


1020 


#4A 


LDA 


i 


274 


3777 




-4000 


275 


1140 




ADM 




276 


0006 




6 


CCONTTANT 


277 


6665 




JMP 


4U 


300 


2213 




ADD 


IP 


301 


1040 




STA 




302 


0705 




4T 




303 


4320 




STC 


4M 


304 


6654 




JMP 


3M+4 


305 


6176 




JMP 


IK 


306 


0011 




CLR 




307 


2524 




ADD 


3A+1 


310 


0017 




COM 




311 


1200 




LAM 




312 


0705 




4T 




313 


6226 




JMP 


1T+4 


314 


7345 




JMP 


4S 


315 


0472 




LZE 


i 


316 


7355 




JMP 


4L 


317 


1020 




LDA 


i 


320 


0000 


#4M 


REQ 


LN 


32! 


0017 




COM 




322 


4326 




STC 


p + 4 


323 


0011 




CLR 




324 


2526 




ADD 


3A+3 


325 


1220 




LAM 


i 


326 


0017 




CHECK MAX 


327 


1000 




LDA 




330 


0526 




3A+3 


331 


0472 




LZE 


1 


332 


4320 




STC 


4M 



LAP6 



MSDISPLY, 5 LN=341 



LAP6 



P CONT 








333 7355 




JMP 


4L 




C LOCATE 


FORWARD 




CFORWARD PAGE 


334 1000 


#4P 


LDA 




335 1025 




5B-H 




336 2202 




ADD 


1K+4 


337 0450 




AZE 




340 6343 




JMP 


4F+2 




£F0RWARD LINE 


341 001! 


#4F 


CLR 




342 2213 




ADD 


IP 


343 4705 




STC 


4T 


344 0050 




SET 


10 


345 0227 




1T+5 CTAPE STATUS 


346 6353 




JMP^4H 


347 1000 




LDA 




350 0010 




10 




351 4227 




STC 


1T+5 


352 6077 




JMP 


1C 




CSLIDE FORWARD 


353 0053 


#4H 


SET 


13 


354 0000 









355 6523 




JMP 


3A 


356 6013 




JMP 


13 


357 6551 




JMP 


3J 


360 6364 




JMP 


4J 


36! 6557 




JMP 


3K 


362 1140 




ADM 




363 0705 




4T 




364 6510 


#4J 


JMP 


3E 


365 6432 




JMP 


36 


366 6452 




JMP 


3H CWQ FULL 


367 1000 




LDA 




370 0705 




4T 




371 0450 




AZE 




372 6355 




JMP 


4H+2 


373 6013 




JMP 


13 




C PLAY GROUND FULL 


374 0057 


#3P 


SET 


17 


375 0000 









376 6523 




JMP 


3A 


377 6017 




JMP 


17 


400 1000 




LDA 




40! 0735 




3B*7 


402 4536 




STC 


3F 


403 0054 




SET 


14 


404 0002 




2 




405 1324 


#3R 


LDH 


i 4 


406 1420 




SHD 


i 


407 7700 




7700 


410 6416 




JMP 


3S 


411 1362 




STH 


i 2 


412 6510 




JMP 


3E 


413 6432 




JMP 


3G 


414 0016 




NOP 




415 6405 




JMP 


3R 



MSDISPLYj6 LN=431 


p 


CO -MX 






416 


1362 


#3S 


STH i 2 


417 


6710 




JMP 3W 


420 


6726 




JMP 3B 


42 t 


0042 




SET 2 


422 


0014 




14 


423 


2531 




ADD 3A+6 


424 


4152 




STC 1G CWA FULL 


425 


6533 




JMP 3F-3 


426 


1020 


#3T 


LDA i 


427 


0700 




RDC 7B 


430 


6712 




JMP 3W+2 


431 


6017 




JMP 17 






CMSINPUT SUBROUTINES 






C CHECK WQ FULL 


432 


0055 


#3G 


SET 15 


433 


0000 







434 


0220 




XSK i 


435 


1020 




LDA i 


436 


7377 




7377 


437 


1440 




SAE 


440 


0002 




2 


441 


6000 




JMP 


442 


6710 




JMP 3W 


443 


6726 




JMP 3B 


444 


6222 




JMP IT CTAPE NOT 


445 


0062 




SET i 2 


446 


6777 




6777 


447 


6523 




JMP 3 A CWA FULL 


450 


4151 




STC 1G 


451 


6015 




JMP 15 






CWQ 


FULL- FIX BPL AND 


452 


0055 


#3H 


SET 15 


453 


0000 







454 


102G 




LDA i 


455 


7377 




-400 


456 


2003 




ADD 3 


457 


4003 




STC 3 


460 


2524 




ADD 3A+1 


461 


1045 




STA 5 


462 


0225 




XSK i 5 


463 


0076 




SET i 16 CWQ TO : 


464 


2777 




2777 


465 


0074 




SET i 14 


466 


2377 




2377 


467 


0072 




SET i 12 


470 


7377 




-400 


471 


1036 




LDA i 16 


472 


1074 




STA i 14 


473 


0232 




XSK i 12 


474 


6471 




JMP P-3 


475 


1000 




LDA 


476 


0005 




5 


477 


14 60 




SAE i 


500 


2371 




6E 


501 


6015 




JMP 15 


502 


1020 




LDA i C CONTROL T 



LAP6 



OK 



8G 



BQ [CONSTANT 



TABLE FULL 



7 



SDISPLY*7 LN=521 LAPb 


p CO NT 






503 6222 




JMP IT CMAKE TAPE ALWAYS 


504 4576 




STC 3L+7 


505 0065 




SET i 5 


506 2237 




6D 


507 6015 




JMP 15 




C CHECK CQ EMPTY 


510 0055 


#3E 


SET 15 


511 0000 







512 1000 




LDA 


513 0004 




4 


514 0450 




AZ£ 


515 6000 




JMP 


516 6737 




JMP 3X 


517 6745 




JMP 3C 


520 0064 




SET i 4 


521 7377 




7377 CFIX'PFA 


522 6015 




JMP 15 




CCHECK CONTINUATION 


523 1020 


#3A 


LDA i 


524 0011 




CURRENT LN 


525 1460 




SAE i 


526 0000 




MAXIMUM LN 


527 0220 




XSK i 


530 1020 




LDA i 


531 0000 




BIGGEST BLOCK USED IN WA 


532 6000 




JMP 




CFIX BNS 


533 0055 




SET 15 


534 0000 







535 1020 




LDA i 


536 0000 


#3F 


BQBN SAVED 


537 1440 




SAE 


540 0735 




3B+7 


541 6543 




JMP s>*2 


542 6614 




JMP 3V-4 


543 1040 




STA 


544 0735 




38*7 


545 4721 




STC 3W+1 1 


546 6734 




JMP 3B+6 CRDC BQ 


547 2735 




ADD 3B*7 


550 6607 




JMP 3V-11 CRDC CQ 




CCG 


TO WQ 


55! 1324 


#3J 


LDH i 4 


552 1362 




STH i 2 


553 1420 




SHD i 


554 1200 




1200 


555 0220 




XSK i 


556 6000 




JMP 




CEOL FIXES 


557 1020 


#3K 


LDA i 


560 0001 




1 


561 2524 




ADD 3A+1 


562 4524 




STC 3A+1 


563 0043 




SET 3 


564 0002 




2 


565 2202 




ADD 1K+4 



NOT OK 



SDISPLY#10 1 


-N»611 


P 


CO NT 






566 


6000 




JMP 






[MAKE TAPE OK 


567 


0055 


#3L 


SET 15 


570 


0000 







571 


0044 




SET 4 


572 


0002 




2 


573 


1020 




LDA i 


574 


7777 




7777 


575 


1364 




STH i 4 


576 


4227 




STC 1T+5 


577 


2524 




ADD 3A+1 


600 


1045 




STA 5 


601 


1020 




LDA i 


602 


0724 




WRC i 7B 


603 


6712 




JMP 3W+2 


604 


2735 




ADD 3B+7 


60 5 


1060 




STA i 


606 


0000 




8QBN SAVED 


607 


1 620 




BSE i 


610 


2000 




2000 


61 i 


4746 




STC 3C+1 


612 


6737 




JMP 3X 


613 


6745 




JMP 3C 


614 


1020 




LDA i 


615 


0400 




400 


616 


2002 




ADD 2 


617 


4004 




STC 4 


620 


1020 


#3V 


LDA i 


621 


6777 




6777 


622 


4215 




STC 1L+3 


623 


6447 




JMP 36+15 






£ CHECK WQ EMPTY 


624 


0055 


#3M 


SET 15 


625 


0000 







626 


1020 




LDA i 


627 


6777 




6777 • 


630 


1440 




SAE 


631 


0002 




2 


632 


6000 




JMP 


633 


0243 




ROL 3 


634 


6730 




JMP 33+2 


635 


6734 




JMP 3B+6 CRDC i 


636 


2745 




ADD 3C 


637 


6712 




JMP^3W+2 


640 


0062 




SET i 2 


64! 


7377 




7377 


642 


2005 




ADD 5 


643 


1460 




SAE i C CONTROL 


644 


2237 




6D 


645 


2202 




ADD 1K+4 £-1 


64 6 


4005 




STC 5 


647 


6447 




JMP 3G+15 






C LOWER PSA* PFA 


650 


1020 


#3N 


LDA i 


651 


3777 




-4000 


652 


2004 




ADD 4 



LAP6 



BQ 



TA3LE NOT EMPTY 



MSDISPLY#11 LN=701 



LAP6 



P CONT 






653 4004 




STC 4 


654 1020 




LDA i 


655 3777 




-4000 


656 2002 




ADD 2 


657 4002 




STC 2 


660 1302 




LDH 2 


661 1420 




SHD i 


662 1200 




1200 


6 63 0220 




XSK i 


664 6000 




JMP 




C DECODE META 


665 0056 


#4U 


SET 16 C CONSTANT 


666 0000 







667 0011 




CLR 


670 4705 




STC 4T 


671 1326 




LDH i 6 


672 1420 




SHD i 


673 1400 




1400 


674 6671 




JMP P-3 


675 2234 




ADD 1M+2 


676 0471 




APO i 


677 6704 




JMP 4T-1 


700 1306 




LDH 6 


701 2705 




ADD 4T 


702 0243 




ROL 3 


703 6670 




JMP 4U+3 


704 1020 




LDA i 


705 0000 


#4T 


NUM TO MOVE 


706 0303 




ROR 3 


707 6016 




JMP 16 




CTAPE SRS FOR STRING SLIDE 




CWQ 


WRC OR RDC* FWD OR BWD 


710 1020 


#3W 


LDA i 


711 0704 




WRC 7B 


712 4720 




STC P+6 


713 1020 




LDA i 


714 1001 




1001 


715 1140 




ADM 


716 0721 




P + 3 


717 4531 




STC 3A+6 CWA BM 


720 0340 




TAPE INSTR 


721 0006 




BN-G6 


722 1000 




LDA 


723 0735 




3B+7 


724 4721 




STC P-3 


725 6000 




JMP 




CBQ 


RDC>FWD OR BWD 


726 1020 


#3B 


LDA i 


727 0001 




1 


730 1140 




ADM 


731 0735 




p+4 


732 4721 




STC 3W+11 


733 6000 




JMP 


734 0720 




RDC i 7B 


735 0005 




BN-Q5 


736 6000 




JMP 



10 



MSDISPLY#12 LN=771 



lap6 



p CONT 







CCQ 


FIX 


737 


1020 


#3X 


LDA i 


740 


0001 




1 


741 


1140 




ADM 


742 


0746 




3C+1 


743 


4751 




STC 3D 


744 


6000 




J MP 






CCQ 


RDC FWD 


745 


0700 


#3C 


RDC 7B 


746 


0007 




BN-Q7 


747 


6000 




JMP 






CCQ 


WRC BWD 


750 


0704 




WRC 7B 


751 


0007 


#3D 


BN-Q7 


752 


6000 




JMP 






CMETA EXIT 


753 


0077 




SET i 17 


754 


6073 




JMP 1C-4 EFOR EXIT 


755 


0041 


#2X 


SET 1 


756 


0000 







757 


6654 




JMP 3N+4 


760 


6176 




JMP IK 


76 I 


1520 




SRO i 


762 


0000 







763 


6001 




JMP 1 


764 


1020 




LDA i 


765 


7777 




-0 


766 


4762 




STC P-4 


767 


0076 




SET i 16 


770 


7300 




7J7D 


771 


0725 




WCG i 7E 


772 


7300 




7I7D 


773 


6001 




JMP 1 
BIOOO 






CADD MANUSCRIPT 


1000 


7407 


#2M 


JMP 2D 


1 00 1 


7003 




JMP P+2 


1002 


7006 




JMP P+4 £NAME*UNIT 


1003 


1000 




LDA 


1004 


2372 




6E+1 


1 005 


7501 




JMP 2U*3 


1006 


0720 




RDC i 7E 


1 007 


3324 




3170*24 


i 010 


7403 




JMP 1403 


1011 


0700 




RDC 7E 


1012 


3303 




3!7D*3 


1013 


6077 




JMP 1C 






CLOAD BINARY 


1014 


7407 


#2K 


JMP 2D 


1G25 


0016 




NOP 


1016 


7572 




JMP 2E 


1017 


0720 




RDC i 7E 


1020 


3324 




3I7D+24 


1021 


7400 




JMP 1400 






£ DISPLAY 






CONCE PER ENTRY 



11 



MSDISPLY* t3 LN«1061 



LAP6 



p 


CO NT 






1022 


0057 


#SA 


SET 17 


1023 


0000 







I 024 


1020 


#5B 


LDA i 


1025 


0000 




LINES-FRAME 


1026 


0017 




COM 


1027 


4014 




STC 14 


1030 


2524 




ADD 3A+1 


1031 


5240 




STC 5C+3 


1032 


0050 




SET 10 


1033 


0002 




2 


1034 


2002 




ADD 2 


1035 


1 120 




ADA i 


1036 


3542 




-235-4000 


1037 


5051 




STC 5D 


1040 


1310 




LDH 10 


1041 


1420 




SHD i 


1042 


1200 




1200 


1043 


7235 




JMP 5C 


1044 


1020 




LDA i 


1045 


3777 




-4000 


1046 


1140 




ADM 


1047 


0010 




10 


1050 


1460 




SAE i 


1051 


0000 


#5D 


NO MATTER 


1052 


7040 




JMP 5D-11 


1053 


1020 




LDA i 


1054 


7776 




-1 


1055 


3240 




ADD 5C+3 


1056 


0241 




ROL 1 


1057 


5063 




STC 5E*3 






CPRESET-QNCE PER 


1060 


0054 


#5E 


SET 14 


1061 


0010 




10 


1062 


1020 




LDA i 


1063 


0137 




LN-1 FOR DIS 


1064 


5252 




STC 5K*1 


1065 


1020 




LDA i 


1066 


0000 




VERT COOR 


1067 


5172 




STC 5M+3 






CQNCE PER LINE 


1070 


7261 


#5F 


JMP 5V £READ 


1071 


1460 




SAE i 


1072 


0007 




KNOB 7 CLINE 


1073 


6264 




JMP 5L 


1074 


0435 




KST i 


1075 


6017 




JMP 17 






C DISPLAY LN 


1076 


0061 


#5H 


SET i 1 


1077 


1013 




1013 


I 100 


1020 




LDA i 


1 101 


0002 




2 


1 102 


3252 




ADD 5K*i 


1 103 


5252 




STC 5K+1 


1 104 


7251 




JMP 5K 


1105 


0450 




AZE 


1 106 


7115 




JMP 5J 



FRAME 



KNOB 



12 



MSDISPLY*14 1 


-M = ll 51 


p 


CO NT 






1 107 


1120 




ADA i 


1 110 


0024 




24 


1111 


2001 




ADD 1 


1 112 


4001 




STC 1 


1 113 


7246 




JMP 5K-3 


1 1.14 


710S 




JMP 9-7 


1115 


7166 


#5J 


JMP 5Z+1 


1116 


7246 




JMP 5K-3 


1 117 


7115 




JMP 5 J 






C FIRST CHARACTER 


1 120 


0061 


#5N 


SET i 1 


1 121 


1 157 




1157 


1 122 


7222 




JMP 5X 


1 123 


1334 




LDH i 14 


1 124 


1420 




SHQ i 


1 125 


2200 




2200 


1 126 


7137 




JMP 5P 


1 127 


1420 




SHD i 


1 130 


6600 




6600 


1131 


7137 




JMP 5P 


1 132 


1420 




SHD i 


1 133 


5600 




5600 


1 134 


7153 




JMP 5Y 


1 135 


0061 




SET i 1 


1136 


1277 




1277 


1 137 


7165 


#5P 


JMP 5Z 


1 140 


7222 




JMP 5X 


1 141 


1334 




LDH i 14 


1 142 


1460 




SAE i 


1 143 


0012 




12 


1 144 


7137 




JMP 5P 


1 145 


1020 




LDA i 


1 146 


1063 




1063 


1 147 


1440 




SAE 


1 150 


0001 




1 


1 151 


7202 




JMP 5W 


1 152 


7070 




JMP 5F 






C DISPLAY META 


1 153 


1020 


#5Y 


LDA i 


1154 


7440 




-337 


1 155 


5172 




STC 5M+3 CVERT 


1 156 


2665 




ADD AU £56 


1 157 


7207 




JMP 5W+5 EHORIZ 


1 160 


7165 




JMP 5Z 


1 161 


0061 




SET i 1 


1 162 


1103 




1103 


1 163 


7173 




JMP 5Z+6 


1 164 


7140 




JMP 5P*1 






C DISPLAY 


1 165 


0241 


#5Z 


ROL 1 


1 166 


1120 




ADA i 


1 167 


2000 


#5M 


6A-1 


1 170 


4012 




STC 12 


1 171 


1 120 




ADA i 


1 172 


0000 




VERT COOR 


1173 


1772 




DSC i 12 



lap6 



13 



MSDISPLY*15 ! 


LN«1241 LAP6 


p 


CO NT 






1 174 


1772 




DSC i 12 


1 175 


0221 




XSK i I 


i 176 


0221 




XSK i 1 


1177 


0221 




XSK i 1 


1200 


0221 




XSK i 1 


1201 


6000 




JMP 


1202 


0011 


#5W 


CLR 


1203 


1020 




LDA i 


1204 


7740 




-37 


1205 


1200 




LAM 


1206 


1172 




5M+3 


1207 


1560 




BCL * 


1210 


7020 




7020 


121 1 


0061 




SET i 1 


1212 


1063 




1063 


1213 


0435 




KST i 


1214 


6017 




JMP 17 


1215 


1460 




SAE i 


1216 


0340 




340 


1217 


6000 




JMP 


1220 


5066 




STC 5E+6 £MOVE DISPLAY 


1221 


6000 




JMP 






CCHK END OF FRAME 


1222 


1000 


#5X 


LDA 


1223 


0002 




2 


1224 


1440 




SAE 


1225 


0014 




14 


1226 


6000 




JMP 


1227 


0061 




SET i 1 


1230 


1753 




1753 


1231 


1020 




LDA i 


1232 


0156 




156 £MARKER 


1233 


7166 




JMP 5Z+1 


1234 


7060 




JMP 5E 






CEOL-LOWER LN 


1235 


1020 


#5C 


LDA i 


1236 


7776 




-1 


1237 


1160 




ADM i 


1240 


0000 




LN FOR DIS 


1242 


0470 




AZE i 


1242 


7056 




JMP 5E-2 


1243 


0234 




XSK i 14 


1244 


6000 




JMP 


1245 


7056 




JMP 5E-2 






CCOUNT DIGITS 


1246 


1520 




SRO i 


1247 


4210 




4210 


1250 


7120 




JMP 5J+3 


1251 


1020 


#5K 


LDA i 


m fc* «*•*£* 


0000 




LN FOR DIS 


1253 


0243 




ROL 3 


1254 


1040 




STA 


1255 


1252 




5K+1 


1256 


1560 




BCL i 


1257 


7761 




7761 


1260 


6000 




JMP 



TO TOP OF SCOPE 



Ik 



MSDISPLY#16 LN=lc 


J31 LAP6 






P 


CONT 
















CKNOB SUBROUTINE 






1261 


0107 


#5V 


SAM 


7 






1262 


0344 




SCR 


4 £ + >-7 OR +>-17 






1263 


2234 




ADD 


1M+2 C-7* GIVES -0 


TO 


-16 OR -26 


1264 


0471 




APO 


i 






1265 


00! 1 




CLR 


CTOO BIG 






1 266 


2i34 




ADD 


1W+1 £17* GIVES 1 


TO 


17 OR -7 V 


12 67 


0471 




APO 


i 






1270 


6000 




JMP 


CI TO 17 






1271 


1020 




LDA 


i 






1272 


0001 




1 


CTOO SMALL 






1273 


6000 




JMP 













C BACK WARD PAGE 






1274 


1000 


#4Q 


LDA 








1275 


1025 




5B+1 


i 






1276 


2202 




ADD 


1K+4 






1277 


0450 




AZE 








1300 


7303 




JMP 


4B+2 










CBACKWARD LINE 






1301 


0011 


#4B 


CLR 








1302 


2213 




ADD 


IP 






1303 


4705 




STC 


4T 






1304 


6226 




JMP 


1T+4 






1305 


7307 




JMP 


p+2 






1306 


7311 




JMP 


4D 






1307 


6523 




JMP 


3A 






1310 


6567 




JMP 


3L 










CBACKWARD SLIDE 






1311 


1020 


#4D 


LDA 


i 






1312 


0001 




1 








1313 


1440 




SA£ 








1314 


0524 




3A-H 








1315 


7317 




JMP 


p*2 






1316 


6077 




JMP 


1C 






1317 


6624 




JMP 


3M 










£ CHECK CQ FULL 






1320 


1020 


if AC 


LDA 


i 






132! 


7377 




7377 






1322 


1440 




SAE 








1323 


0004 




4 








1324 


7331 




JMP 


4£ 






1325 


6750 




JMP 


3D-1. CWRC CQ 






1326 


4004 




STC 


A 






1327 


3336 




ADD 


4E+5 






1330 


6741 




JMP 


3X+2 






1331 


1302 


£4E 


LDH 


2 






1332 


1344 




STH 


4 






1333 


6650 




JMP 


3N 






1334 


7317 




JMP 


4C-1 






1335 


1020 




LDA 


i 






1336 


7776 




-1 


C CONSTANT 






1337 


6561 




JMP 


3K+2 






1340 


1140 




ADM 








1341 


0705 




4T 








1342 


0450 




AZE 








1343 


7311 




JMP 


4C-7 







TO +10 



17 



15 



MSDISPLY*17 LN=t42t 



LAPu 



p 


GO NT 






1 344 


6077 




JMP 1C 






CLOCATE-TAPE MOT OK 


1345 


0452 


#4S 


LZE 


1346 


6342 




JMP 4F+I 


1347 


0017 




COM 


1350 


4705 




STC 4T 


1 35! 


6523 




JMP 3 A 


1 352 


7354 




JMP P*2 


1353 


7311 




JMP 40 


1354 


6567 




JMP 3L 






CFIND REQUEST IN CONTROL BLOCK 


1355 


0011 


#4L 


CLR 


1 356 


00 6 5 




SET i 5 


1357 


2235 




6D-2 


1360 


2213 




ADD IP 


1361 


4705 




STC 4T 


! 362 


1005 




LDA 5 


1363 


4524 




STC 3A+1 


1 J 64 


1025 




LDA i 5 


1365 


0017 




COM 


1 366 


53 72 




STC P+4 


I 367 


0011 




CLR 


1370 


2320 




ADD 4M 


137! 


1220 




LAM i 


1372 


0000 




NO MATTER 


1373 


0452 




LZE 


1374 


7360 




JMP 4L+3 


1375 


1020 


#4G 


LDA i 


1376 


3110 




5G00*7A-6D-1 


1377 


2005 




ADD 5 


t 400 


4536 




STC 3F 


I 401 


6533 




JMP 3F-3 


I 402 


0062 




SET i 2 


1403 


6777 




6777 


1 404 


0064 




SET i 4 


1 405 


7377 




7377 


1406 


6344 




JMP 4F*3 






EMS' 


TA PARAMETER DECODE 






I LN 


-NAME -UNIT 


1 407 


001 3 


#20 


CLR 


1410 


0072 




SET i 12 


1411 


2371 




6E 


1412 


1052 




STA 12 


1413 


1072 




STA i 12 


1414 


0017 




COM 


1 4! 5 


1072 




STA i 12 


1 416 


1072 




STA i 12 


1 417 


1072 




STA I 12 


1420 


1072 




STA i 12 


1421 


1072 




STA i 12 


1422 


004t 




SET 1 


1423 


0000 











CLINE NUMBER 


1 424 


0072 




SET i 12 


1425 


2370 




6E-1 


1426 


0077 




SET 1 17 



16 



MSDISPLY>20 LN=1511 



lap6 



1427 

1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1440 
1 441 
1 442 
1443 
1444 
1445 
1446 
1447 
1450 
1451 

1452 
1453 
1454 
1455 
1456 
1457 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1470 
1471 
1472 
1473 
1474 
1475 

1476 
1477 
1 500 
1 501 
1502 
1 503 
1504 
1505 
1506 
1507 
1510 

1511 
1512 
1513 



CONT 
7775 
0054 
0006 
6665 
1072 
1306 
1420 
1200 
6001 
1460 
0063 
7446 
0237 
7430 
7452 
0011 
1052 
0046 
0014 

0072 
6372 
0076 
7766 
0221 
1326 
1420 
1400 
7457 
1420 
1200 
62 55 
1420 
6300 
7476 
1372 
1326 
0236 
7463 
6255 

6665 
0040 
0001 
0243 
1040 
2377 
1560 
0050 
0470 
6000 
6 <dl55 

0077 
6073 
0041 



#2F 



-2 
SET 
6 

JMP 
STA 
LDH 
SHD 
1200 
JMP 
SAE 
63 
JMP 
XSK 
JMP 
JMP 
CLR 
STA 
SET 
14 
CNAME 
#2N SET 



1.4 

4U 

i 12 
6 
i 

1 

i 

C COMMA 
P+4 
i 17 
2F-2 
p+5 

12 
6 



i 12 



6E+4001 
SET i 16 
-li 
XSK i 1 

LDH i 6 

SHD i 

1400 

JMP P-3 

SHD i 

1200 

JMP 1N-2 

SHD i 

6300 

JMP 2U 

STH i 12 

LDH i 6 

XSK i 16 

JMP P-ll 

JMP 1N-2 
EUNIT 
#2U JMP 4U 

SET 

1 

ROL 3 

STA 

6E+6 

BCL i 

50 

AZE i 

JMP 

JMP 1N-2 
CTAPE FIX 

SET i 17 

JMP 1C-4 
#2T SET 1 



C ERROR 



t ERROR 



17 



MSDISPLY*21 LN-1601 



LAPb 



1 514 

1515 
1516 

1517 
1 520 
I 52! 

I 522 

1 523 

2 524 
1 525 
1 526 

1 527 

2 530 

1 531 
I 532 
1533 
1534 
1535 
1536 
1537 
1540 

1542 

1542 
1543 
1544 
1545 

1546 

1 547 

1550 
1551 
1552 
1 553 
1554 
1555 
1556 
1 557 

1 560 

I 561 
1 562 
I 563 
1 564 
£ 5o5 
1 566 
1 567 
1 570 
1571 

1 572 
1 573 
1 574 
1 57 5 
1576 



CO NT 
0000 
6654 
6176 
6226 
7522 
6761 
1020 
7776 
4705 
6353 
6567 
6764 

1000 
0000 
5540 
7407 
6255 
6753 
0721 
1320 
0000 

1020 
0001 
1440 
0526 
6000 
6255 

0051 
0000 
7407 
7555 
6753 
6011 
751 1 
0231 
6011 

0052 
0000 
7407 
7565 
6255 
1000 
2371 
7501 
6753 
602 1 

0051 
0000 
1020 
1020 
4020 



3N+4 

IK 

1T+4 

p+2 

2X+4 

i 



p+6 
2D 
IN -2 
2X-2 
i 7E 





. J MP 
JMP 
JMP 
JMP 

JMP 

LDA 

7776 

STC 4T 

JMP AH 

JMP 3L 

JMP 2X+7 
CSM#CM*CB SR 
#2Y LDA 



STC 

JMP 

JMP 

JMP 

RCG 

1 I 704-20 

RETURN 
CCV*SM SR 
#4Z LDA i 

1 

SAE 

3A+3 

JMP 

JMP iN-2 
CLIST* PRINT 
#2W SET 11 



JMP 

JMP 

JMP 

JMP 

JMP 

XSK 

JMP 
£01 SPLAY 



C ERROR 



£ ERROR 
MANUSCRIPT 



2D 
p+3 
2X-2 
11 

2T-2 
i 11 
11 
INDEX* 



£WA MS 



COPY FILE* PRINT INDEX SR 



#2Z SET 

JMP 

J HP 
JMP 
LDA 
6E 
JMP 
JMP 
JMP 
CEXIT* 



11 

2D 

p+2 

IN-2 



C ERROR 



#2E 



SET 



LDA 

LDA 

STC 



2U*3 
2X-2 

22 
LOAD BINARY SR 
12 



i 
i 
20 



18 



MSDISPLY*22 LN=1671 L 


p 


CONT 




1577 


4762 


STC 2X+5 


1600 


0077 


SET i 17 


1601 


6020 


JMP 20 


1602 


7513 


JMP 2T 


1603 


6011 


JMP 11 
£C0PY 


1604 


7511 


#2P JMP 2T-2 


1605 


0720 


RDC i 7E 


1606 


0336 


7D+36 


1607 


6017 


JMP 17 

C CONVERT 


1610 


7541 


#2C JtMP 4Z 


1611 


7511 


JMP 2T-2 


1612 


0721 


RCG i 7E 


1613 


2330 


2I7D+30 


1614 


7002 


JMP 1002 
CSAVE MANUSCRIPT 


1615 


7541 


#2S JMP 4Z 


1616 


7407 


JMP 2D 


1617 


6255 


JMP 1N-2 £ ERROR 


1 620 


7511 


JMP 2T-2 


1 621 


0720 


RDC i 7E 


1 622 


0320 


7D+20 


1623 


2606 


ADD 3V-12 CLAST 8N 


1624 


6023 


JMP 23 
CSAVE BINARY 


1625 


7530 


#2B JMP 2Y 


1 626 


6022 


JMP 22 
CCOPY MANUSCRIPT 


1627 


7530 


02L JMP 2Y 


1630 


6020 


JMP 20 
CCOPY BINARY 


1631 


7530 


JMP 2Y 


1 632 


6021 


JMP 21 
CCOPY FILE 


1633 


7560 


JMP 2Z 


1634 


0720 


RDC i 7E 


1635 


0314 


7D+14 


1636 


6017 


JMP 17 
CLIST 


1637 


7547 


#2A JMP 2W 


1640 


7647 


JMP 21-3 


1641 


7541 


JMP 4Z 


1642 


0721 


RCG i 7E 


1643 


2330 


2I7D+30 


1644 


0720 


RDC i 7E 


1645 


1333 


1 I7D+33 


1646 


7000 


JMP 1000 


1647 


0721 


RCG i 7E CFILE MS 


1650 


1320 


1 I7D+20 


1 651 


6024 


JMP 24 
CPRINT MANUSCRIPT 


1 652 


7547 


#21 JMP 2W 


1653 


7660 


JMP P+5 


1654 


7541 


JMP 4Z 


1655 


0720 


RDC i 7E 



LAP6 



19 



MSDISPLY,23 LN»1761 



LAP6 



p 


CO NT 








! 656 


2322 




2I7D+22 


1 657 


7000 




J^YP 


1000 


1 660 


0721 




RCG 


i 7E 


1661 


2320 




2J7D+20 CFILE MS 


1662 


6025 




JMP 


25 






CDISPLAY INDEX 


3 663 


7560 


*2G 


JMP 


22 


1 664 


0720 




RDC 


i 7E 


166 5 


0325 




7D+25 


1666 


6017 




JMP 


17 






CPRINT INDEX 


1667 


7560 


#2Q 


JMP 


2Z 


1670 


0720 




RDC 


i 7E 


1671 


0325 




7D+25 


1 672 


6020 




JMP 


20 






CEXIT 




1 673 


7572 


#2R 


JMP 


2E 


1674 


0703 




MTB 


7E 


167 5 


0000 









1676 


0000 




HLT 




1 677 


0723 




MTB 


i 7E 


1700 


0000 









1701 


0000 




HLT 




1702 


6020 




JMP 


20 






£FREE 




1703 


1326 


#2J 


LDH 


i 6 C2ND CHAR 


1704 


5711 




STC 


p+5 


1705 


7511 




JMP 


2T-2 


1706 


0700 




RDC 


7£ 


1707 


0317 




7D+17 


1710 


1020 




LDA 


i 


1711 


£L O w£» 




2ND 


CHARACTER 


1712 


6020 




JMP 


20 






t DISPLAY SYMBOL TABLE 


1713 


6753 


#2V 


JMP 


2X-2 


1714 


0721 




RCG 


i 7E 


1715 


1310 




1 I7D+10 


1716 


6014 




JMP 


14 






CIST CASE 


1717 


7022 


£1Y 


JMP 


5A 


1720 


0515 




KBD 




1721 


0077 




SET 


i 17 


1722 


5767 




1H*4000 


1723 


1437 




SHD 


i 17 


1724 


6077 




JtAP 


1C C DELETE 


1725 


1437 




SHD 


i 17 


1726 


7301 




JMP 


4B £W 


1 727 


1437 




SHQ 


i 17 


1730 


6341 




JMP 


4F CI 


1731 


1437 




SHD 


i 17 


1732 


7274 




JMP 


4Q EQ 


1 733 


0470 




AZE 


i 


1734 


6334 




JMP 


4P £0 


1735 


7761 




JMP 


2K-1 


1736 


6077 




JMP 


1C £ ILLEGAL 






[LATER CHARACTERS 



20 



MSDISPLY#£ 


»4 1 


LN=2051 


p 


CONT 






1737 


7022 


01F 


JMP 5A 


1740 


0515 




KBD 


1741 


0.077 




SET i 17 


1742 


5766 




1H-4000 


1743 


1437 




SHD i 17 


1744 


7752 




JMP 1Z CCASE 


1745 


1437 




SHD i 17 


1746 


6124 




JMP IE CEOL 


1747 


1437 




SHD i 17 


1750 


6174 




JMP 1K-2 CDELETE 


1751 


6113 




JMP 1R 






CLATER CASE 


1752 


7022 


#1Z 


JMP 5A 


1753 


051$ 




KBD 


1754 


1420 




SHD i 


1755 


1300 




1300 


1756 


6174 




JMP 1K-2 


1757 


7761 




JMP 2H-1 


1760 


7737 




JMP IF CILLEGAL 






£ CHECK CASE 


1761 


1120 




ADA i 


1762 


7745 


#2H 


-32 


1763 


0471 




APO i 


1764 


6000 




JMP CILLEGAL 


1765 


2463 




ADD 3H+11 C76 


1766 


6113 




JMP 1R 






E CHARACTER TABLE 


1767 


2312 


#1H 


2312 


1770 


1352 




1352 


1771 


0144 




144 






CGRID PATTERNS 








02001 


2001 


4136 


#6A 


4136 


2002 


3641 




3641 


2003 


2101 




2101 


2004 


0177 




0177 


2005 


4523 




4523 


2006 


2151 




2151 


2007 


4122 




4122 


2010 


2651 




2651 


2011 


2414 




2414 


2012 


0477 




0477 


2013 


5172 


#6C 


5172 


2014 


0651 




0651 


2015 


1506 




1506 


2016 


4225 




4225 


2017 


4443 




4443 


2020 


6050 




6050 


2021 


5126 




5126 


2022 


2651 




2651 


2023 


5122 




5122 C9 


2024 


3651 




3651 


2025 


4020 




4020 


2026 


2055 




2055 


2027 


4020 




4020 CDEL 


2030 


2055 




2055 



lap6 



21 



ttSDlSPLY*25 LN=2141 



LAP6 



2031 

2032 

2033 

2034 

2035 

2036 

2037 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2120 



CONT 
0000 
0000 
0101 
0126 
3700 
3424 
0404 
0404 
0404 
0437 
0000 
0077 
3614 
1436 
4020 
2055 
4477 
7744 
5177 
2651 
4136 
2241 
4177 
3641 
4577 
4145 
4477 
4044 
4136 
2645 
1077 
7710 
7741 
0041 
4142 
4076 
1077 
4324 
0177 
0301 
3077 
7730 
3077 
7706 
4177 
7741 
4477 
3044 
4276 
0376 
4477 
3146 
5121 
4651 
4040 
4077 



#6B 



#66 



#6L 



#6Q 



0000 
0000 
0101 
0126 
3700 
3424 
0404 
0404 
0404 
0437 
0000 
0077 
3614 
1436 
4020 
2055 
4477 
7744 
5177 
2651 
4136 
2241 
4177 
3641 
4577 
4145 
4477 
4044 
4136 
2645 
1077 
7710 
7741 
0041 
4142 
4076 
1077 
4324 
0177 
0301 
3077 
7730 
3077 
7706 
4177 
7741 
4477 
3044 
4276 
0376 
4477 
3146 
5121 
4651 
4040 
4077 



CCASE 



22 



MSDISPLY#26 LN«2231 



LAP6 



p 


CONT 






2121 


0177 


0177 




2122 


7701 


7701 




2123 


0176 


#6V 0176 




2124 


7402 


7402 




' 2125 


0677 


0677 




2126 


7701 


7701 




2127 


1463 


1463 




2130 


6314 


6314 




2131 


0770 


0770 




2132 


7007 


7007 




2133 


4543 


4543 


£Z 


2134 


6151 


6151 




2135 


0404 


0404 


CMETA 


2136 


0404 


0404 




2137 


2504 


2504 




2140 


0416 


0416 




2141 


4020 


4020 


£? 


2142 


2055 


2055 


CCASEjSPAC 


2143 


1212 


#6F 1212 




2144 


1212 


1212 




2145 


0107 


0107 




2146 


0107 


0107 




2147 


0500 


0500 




2 150 


0006 


0006 




2151 


0001 


0001 




2152 


0000 


0000 




2153 


4577 


4577 




2154 


7745 


7745 




2155 


4177 


4177 




2156 


0000 


0000 




2 157 


0101 


0101 


o 


2160 


0101 


0101 


E CASE* CASE 


2161 


0070 


0070 


£t 


2162 


0070 


0070 


C CASE* A 


2163 


0700 


0700 


C* 


2164 


0700 


0700 


CCASEjB 


2165 


2410 


2410 


c< 


2166 


0042 


0042 


CCASE*C 


2167 


4200 


4200 


c> 


2 170 


1024 


1024 


£CASE*D 


2171 


0000 


0000 


£3 


2172 


7741 


7741 


£CAS£*E 


2173 


2050 


2050 


£* 


2174 


0050 


0050 


CCASEjF 


2175 


2200 


2200 


£: 


2176 


0000 


0000 


£CAS£*G 






CMETA COMMANDS 


2177 


2440 


#6Z 2440 


CAM 


2200 


7000 


JMP 2M 


2201 


4640 


4640 


£SM 


2202 


7615 


JMP 2S 


£* £mt w O 


2651 


2651 


CCV 


2204 


7610 


JMP 2C 


2205 


2643 


2643 


CCP 


2206 


7604 


JMP 2P 


2207 


3053 


3053 


CEX 



23 



MSDISPLY#27 LN«2321 



LAP6 



p 


CONT 






2210 


7673 




JMP 2R 


2211 


3734 




3734 £LI 


2212 


7637 




JMP 2A 


2213 


4625 




4625 £SB 


2214 


7625 




JMP 2B 


2215 


2753 




2753 £DX 


2216 


7663 




JMP 2G 


2217 


2746 




2746 CDS 


2220 


7713 




JMP 2V 


2221 


2640 




2640 £CM 


2222 


7627 




JMP 2L 


2223 


2625 




2625 £CB 


2224 


7631 




JMP 2L+2 


2225 


2631 




2631 ECF 


2226 


7633 




JMP 2L+4 


2227 


3742 




3742 £L0 


2230 


7014 




JMP 2K 


2231 


4340 




4340 £PM 


iZt <£ Kjtft 


7652 




JMP 21 


2233 


4353 




4353 £PX 


2234 


7667 


#6Y 


JMP 2Q 






£ CONTROL TABLE 


2235 


0000 




£MUST HAVE 2 ZEROS HERE 


2236 


0000 







2237 


0000 


#6D 








CMETA PARAMETERS 








32371 


2371 


0000 


#6£ 





2372 


0000 







2373 


0000 







2374 


0000 







2375 


0000 







2376 


0000 







2377 


0000 






7A«350 £WA 

7B«0 EWA UNIT 

7C=430 £FILE 

7D=300 £LAP6 

7E=0 ELAP6 UNIT 

7G=426 £ INDEX 






CLAP6 MANUSCRIPT INPUT AND DI SP 






£ADD ADDMS LO HERE 



2k 



ADDMS LO 


i*0 








LA 


P6 




VALUE 


LINE 


VALUE 


LINE 


VALUE 


LINE 


1A 0030 


17 


3T 


0426 


441 


8C 


1407 


2412 


IB 0067 


57 


3V 


0620 


644 


3D 


1621 


2636 


1C 0077 


71 


3W 


0710 


741 


8E 


1417 


2423 


ID 0155 


153 


3X 


0737 


772 


8F 


1444 


2450 


1£ 0124 


120 


4A 


0273 


301 


8G 


1454 


2461 


IF 1737 


2051 


4B 


1301 


1354 


8H 


1460 


2466 


1G 0151 


146 


4C 


1320 


1375 


8J 


1511 


2520 


1H 1767 


2104 


4D 


1311 


1365 


8K 


1637 


2654 


IK 0176 


175 


4£ 


1331 


1406 


8L 


1564 


2577 


1L 0212 


212 


4F 


0341 


352 


8M 


1660 


2677 


1M 0232 


234 


4G 


1375 


1454 


8N 


1744 


2766 


IN 0257 


261 


4H 


0353 


365 


8P 


1711 


2731 


IP 0213 


213 


4J 


0364 


376 


8Q 


1727 


2751 


1R 0113 


106 


4L 


1355 


1434 


8R 


1645 


2663 


IT 0222 


223 


4M 


0320 


326 


8S 


1672 


2711 


1W 0133 


130 


4P 


0334 


344 


8T 


1760 


3005 


1Y 1717 


2030 


4Q 


1274 


1346 


SU 


1424 


2430 


1Z 1752 


2065 


AS 


1345 


1423 


8V 


1757 


3004 


2A 1637 


1741 


4T 


0705 


734 


SZ 


1773 


3021 


2B 1625 


1723 


4U 


0665 


714 








2C 1610 


t704 


4Z 


1541 


1630 








2D 1407 


1470 


5A 


1022 


1061 








2£ 1572 


1664 


5B 


1024 


1063 








2F 1432 


1514 


SC 


1235 


1304 








2G 1663 


1767 


5D 


1051 


1110 








2H 1762 


2076 


5E 


1060 


1120 








21 1652 


1755 


5F 


1070 


1131 








2J 1703 


2012 


5H 


1076 


1140 








2K 1014 


1051 


5J 


1115 


1157 








2L 1627 


1726 


5K 


1251 


1321 








2M 1000 


1034 


5L 


0264 


270 








2N 1452 


1535 


5M 


1167 


1234 








2P 1604 


1677 


5N 


1120 


1163 








20 1667 


1774 


5P 


1137 


1202 








2R 1673 


2001 


5V 


1261 


1332 








2S 1615 


1712 


5W 


1202 


1247 








2T 1513 


1600 


5X 


1222 


1270 








2U 1476 


1562 


5Y 


1153 


1217 








2V 1713 


2023 


5Z 


1165 


1232 








2W 1547 


1637 


6A 


2001 


2111 








2X 0755 


1013 


6B 


2053 


2163 








2Y 1530 


1616 


6C 


2013 


2123 








2Z 1560 


1651 


6D 


2237 


2351 








3A 0523 


543 


6E 


2371 


2354 








3B 0726 


760 


6F 


2143 


2253 








3C 0745 


1001 


6G 


2065 


2175 








3D 0751 


1006 


6L 


2077 


2207 








3E 0510 


527 


6Q 


2111 


Cm Cm Gm X 








3F 0536 


557 


6V 


2123 


2233 








3G 0432 


447 


6Y 


2234 


2345 








3H 0452 


470 


6Z 


2177 


2310 








3J 0551 


573 


7A 


0350 


2363 








3K 0557 


602 


7B 


0000 


2364 








3L 0567 


613 


7C 


0430 


2365 








3M 0624 


651 


7D 


0300 


2366 








3N 0650 


676 


7E 


0000 


2367 








3P 0374 


407 


7G 


0426 


2370 




25 




3H 0405 


420 


8A 


1524 


2535 






3S 0416 


431 


SB 


1536 


2550 









ADDMS LQ;> 1 LiV-23 73 



LAPb 



GONT 







CLA 


P6 ADD i'lAiNi U SCRIPT AND 


LOAD BINARY 






CBLOGK 324 








£ QUARTER 3 








cconv/ek: 


f WITH MSDISPLY 










a 1400 




1 400 


7645 




JMP 


8R CLOAD BINARY 




I 401 


5637 




STC 


m 




1 402 


7621 




JMP 


8D CNO. FOR CF 








CADD MANUSCRIPT 




1 403 


6654 




J MP 


3N+4 




1 404 


6176 




JMP 


IK 




1405 


7564 




JMP 


SL 




1406 


7417 




JMP 


8E CMS BY BN 








ENAME MATCH 




1 407 


1030 


#SC 


LDA 


i 10 




1410 


1620 




BSE 


i 




1411 


2000 




2000 




1412 


5525 




STC 


8A+1 




1413 


1030 




LDA 


i 10 




1414 


0451 




APO 






1415 


7621 




JMP 


8D CNO MS 




1416 


7424 




JMP 


8 £+5 








£BL0CK NUMBER REQUEST 




1417 


1000 


#SE 


LDA 






1420 


2371 




6E 






1421 


1620 




BSE 


i 




1422 


2000 




2000 




1423 


5525 




STC 


8A+1 




1424 


1000 


#8U 


LDA 






1425 


1524 




8A 






1426 


1460 




SAE 


■b 




1427 


0700 




RDC 


7E 




1430 


7437 




JMP 


8F-5 




1431 


3741 




ADD 


8N-3 CSAME UNIT* 


FIX i BIT 


1432 


5524 




STC 


SA 




1433 


2414 




ADD 


3S-2 ENOP 




1434 


5527 




STC 


8 A* 3 




1435 


3671 




ADD 


SS-1 CJMP 8K+3 




1436 


5443 




STC 


8F-1 




1437 


7522 




JMP 


8 A- 2 




1440 


1030 




LDA 


i 10 




1441 


1130 




ADA 


i 10 




1 442 


0450 




AZE 






1443 


7621 




JMP 


SD 




1444 


1330 


#8F 


LDH 


i 10 




1 445 


1420 




SKD 


i 




1446 


7700 




7700 




1447 


7511 




JMP 


8J 




1450 


1362 




STH 


i 2 




1451 


1460 




SAE 


i 




1452 


0012 




12 






1453 


7460 




JMP 


8H 








EEOL 






1454 


6557 


#8G 


JMP 


3K 




1455 


0017 




COM 







26 



ADDMS L0#2 LN=2463 



LAP6 



p 


CONT 






J 456 


2526 




ADD 3A+3 


1457 


4526 




STG 3A+3 






CCHECK Q2 EMPTY 


3 460 


7515 


#SH 


JMP 8A-7 


1461 


6432 




JMP 3G" 


1 462 


6452 




JMP 3H 


1 463 


6212 




JMP 1L 


1464 


6374 




JMP 3P 


1465 


1000 




LDA 


1466 


0003 




3 


1467 


1 440 




SAE 


1470 


0002 




2 


1471 


7444 




JMP 8F 


1472 


1000 




LDA 


1473 


0526 




3 A* 3 


1474 


0470 




AZE i 


1475 


7503 




JMP P+6 CTOO MANY LINES 


1476 


1000 




LDA 


1477 


0151 




1G CMAX BLOCK USED 


1500 


1460 




SAE i 


1501 


6425 




617G-1 CLAST BLOCK? 


1502 


7444 




JMP 8F CALL OK 


1503 


1020 




LDA i 


1504 


7776 




-1 


1505 


6561 




JMP 3K+2 


1506 


2526 




ADD 3A+3 


1507 


4526 




STC 3A+3 


1510 


6176 




JMP IK" 






t FINISHED ADD MS 


1511 


6222 


#8 J 


JMP IT CTAPE NOT OK 


1512 


6523 




JMP 3A 


1513 


6567 




JMP 3L 


1514 


7637 




JMP 8K 






C COMMON SUBROUTINES 






CREAD INDEX 


1515 


1000 




LDA 


1 516 


0010 




10 


1517 


1460 




SAE.i 


1520 


5377 




5377 


1521 


6000 




JMP 


1522 


0041 




SET 1 


1523 


0000 







1524 


0700 


#8A 


RDC 


1525 


2426 




2I7G C INDEX 


1526 


0453 




IBZ 


1527 


7526 




JMP P-l 


1530 


0070 




SET i 10 


1531 


4777 




4777 


1532 


bClO 




ADD IP 


1533 


3525 




ADD SA+1 


1534 


5525 




STC SA+1 


1535 


6001 




JMP 1 






CNAME MATCH 


1536 


0041 


#8B 


SET 1 


1537 


0000 







1540 


0072 




SET i 12 



27 



ADDMS L0,3 LN=2553 



LAP6 



p 


CON? 




154! 


7773 


-4 


1542 


0073 


SET i 13 


1 543 


2372 


6E+1 


1544 


1000 


LDA 


1545 


0010 


10 


1546 


1620 


BSE i 


1547 


0007 


7 


1550 


1460 


SAE i 


1551 


5377 


5377 


1 552 


7555 


JMP P+3 


1 553 


0221 


XSK i 1 


1554 


6001 


JMP 1 


1555 


4010 


STC 10 


1556 


1030 


LDA i 10 


1557 


1473 


SAE i 13 


1560 


7540 


JMP SB+2 


1561 


0232 


XSK i 12 


1562 


7556 


JMP P-4 


1563 


6001 


JMP 1 CNAME MATCH 
CSUBRGUTINE CONTROL 


1 564 


0057 


#8L SET 17 


1 565 


0000 





1 566 


1000 


LDA 


1567 


2377 


6E+6 Cu 


1570 


3524 


ADD 8 A CRDC 


1571 


5524 


STC 8A 


1572 


1300 


LDH 


1573 


2373 


6E+2 


1574 


1420 


$HV i 


1575 


7700 


7700" 


1576 


6000 


JMP CNAME NOT REQUESTED 


1577 


0237 


XSK i 17 


1600 


1000 


LDA 


1601 


2377 


6E+6 


1602 


0246 


ROL 6 CUNIT TO Z 


1603 


5760 


STC 8T 


1604 


3524 


ADD 8 A CRDC u 


1605 


3741 


ADD 8N-3 £20 


1606 


5744 


STC SN "CRDC i a 


1 607 


7522 


JMP 8A-2 EREAD INDEX 


1610 


1030 


LDA i "10 


2 611 


1460 


SAE i 


1 612 


5757 


5757 


1613 


7621 


JMP 8D 


1614 


7536 


JMP 8B 


1615 


6017 


JMP 17 CNAME FOUND 


1616 


7522 


JMP 8A-2 


1617 


7536 


JMP 8B 


1620 


6017 


JMP 17 
CNO MS OR BINARY 
CNO NAME MATCH 


1621 


0011 


#8D CLR 


1622 


0061 


SET i 1 


1623 


0340 


340 


1624 


0072 


SET i 12 


1625 


2103 


6A+102 CN 



28 



ADDMS L0*4 LN=2643 



LAP6 



p 


CO NT 










1 62 6 


1752 




DSC 


12 




1 627 


1772 




DSC 


i 12 




1 630 


0061 




SET 


i 1 




1 631 


0364 




364 






1632 


1772 




DSC 


i 12 




1633 


1772 




DSC 


i 12 




1 634 


0415 




KST 






1 635 


7622 




J MP 


8D+1 




1636 


0515 




KSD 






1637 


0720 


#8K 


RDC 


i 7E 


C RETURN 


1640 


2302 




217D+2 




1641 


7011 




JMP 


2M+11 




1 642 


0703 




MT8 


7E 




1643 


0000 







CSTOP TAPE 


1 644 


7621 




JMP 


80 








ILOi 


^D BINARY 




1645 


7564 


#8R 


JMP 


8L 




1646 


7660 




JMP 


8M CBIN IN WORKIN 


1647 


1030 




LDA 


i 10 


CNAME MATCH 


1650 


1030 




LDA 


i 10 




1651 


1030 




LDA 


i 10 


CQNIBN 


2 652 


5745 




STC 


8N+1 




1653 


1030 




LDA 


i 10 


CN BLKS 


1 654 


0451 




APO 






1655 


7621. 




JMP 


8D 




1 656 


0017 




COM 






1657 


7672 




JMP 


8S 








CBIN IN 


WORKING AREA 


1660 


0720 


#8M 


RDC 


i 7E 




1661 


{£+ s*) kJ \J 




2I7D+30 




1662 


3010 




ADD 


1010 


CIST BN 


1663 


3012 




ADD 


1012 


CQN 


1 664 


1120 




ADA 


i 




1 66 5 


0340 




7D+40 




1666 


5745 




STC 


8N+1 




1667 


3011 




ADD 


1011 


C-N BLKS 


1670 


0470 




AZE 


I 




1671 


7642 




JMP 


8K+3 


CNO BINARY 


1672 


4010 


#8S 


STC 


10 




1673 


3744 




ADD 


SN 




1674 


3777 




ADD 


1777 




1675 


5777 




STC 


1777 


CMTB 


1676 


3745 




ADD 


8N+1 


CQNIBN 


1677 


3747 




ADD 


SN+3 


C1001 


1700 


0230 




KSK 


i 10 




1701 


7677 




JMP 


p-2 




1702 


5755 




STC 


SN+11 


CLAST QNI3N 


1703 


3745 




ADD 


3N+1 




1704 


1560 




BCL 


i 




1705 


7000 




7000 




1706 


3760 




ADD 


8T 




1707 


0243 




ROL 


3 




1710 


5760 




STC 


8T CBN TO Z 






CCLEAR MEMORY 


* 


1711 


0061 


#8? 


SET 


i 1 




1712 


3777 




3777 





AREA 



29 



ADDMS L0*5 U 


>J~2733 LAP6 


9 


CQNT 






1113 


0011 




CLR 


1 1 1 A 


1061 




STA i 1 


1715 


0201 




XSK 1 


171 6 


7714 




JMP P-2 


1717 


0061 




SET i"l 


1720 


oooi 




1 


1721 


1061 




STA i 1 [LAST REGISTER CLEARED 


1722 


1440 




SA£ 


1723 


1721 


, 


P-2 


1724 


7721 




JMP P-3 


1725 


4001 




STC 1 [CLEAR 1 






[READ BINARY 


1726 


3745 




ADD 8N+1 






C CHECK BIN ON 


1727 


1560 


#80 


BCL i 


1730 


0777 




777 


1731 


1460 




SAE i 


1732 


3000 




3000 


1 733 


7744 




JMP 8N 


1 734 


1000 




LDA 


173 5 


1745 




8N+1 


1736 


57 74 




STC SZ+1 


1737 


3744 




ADD 3N 


1740 


1560 




BCL i 


1741 


0020 




20 [CONSTANT 


1742 


5777 




STC 1777 [RDC u 


i743 


7746 




JMP 8N+2 


1744 


0720 


#8N 


RDC i 7£ 


1745 


0000 




FIRST QNIBN 


1746 


1020 




LDA i 


1747 


1001 




1001 


1750 


1200 




LAM 


1751 


1745 




P-4 


1752 


0452 




La* 1*4 Ell 


1753 


7757 




JMP P+4 CQ7 READ 


1754 


1460 




SAE i 


1755 


0001 




LAST GNI8N+1 


1756 


7727 




JiMP 6G 


1757 


7757 




JMP 8V 
S1757 






CCLEAR Q3 


1757 


1020 


#SV 


LDA i 


1760 


0000 


#8T 


7EI CBN TIMES 8 


1761 


0354 




SCR 14 [TO Z 


1762 


4000 




STC 


1763 


2001 




ADD 1 [SAVE 2 


1764 


5776 




STC 8Z+3 


1765 


0061 




SET i 1 


1 766 


1721 




8Q-6 


1767 


1061 




STA i 1 [LAST REGISTER CLEARED 


1770 


1440 




SAE 


1771 


1767 




P-2 


1772 


7767 




JMP P-3 






[FINISHED LOAD BIN 


1773 


0060 


£8Z 


SET i 


1774 


0000 




CBN 



30 



ADDMS L0#6 LN*3023 LAP6 

p CONT 

1775 0061 SET i 1 

1776 0000 CRESET 1 

1777 7762 -15 CMTB OR RDC 

CLAP6 ADD MANUSCRIPT AMD LOAD BINARY 



31 



FILECOMS>0 



IAP6 



VALUE 
1A 0171 
0617 
0640 
0662 
0654 
0104 
0570 
0367 
0716 
0377 
0455 
0103 
0151 
0143 
1412 
0036 
0725 
0700 
0551 
0524 
0361 
0431 
0417 
0407 
0062 
0054 
0065 
1447 
1465 
1474 
1504 
1524 
1551 
0502 
0207 
0026 
0044 
1400 
0450 
0073 
01 17 
1666 
1652 
1616 
0134 
1603 
1631 
0256 
0322 
0233 
0312 
0230 
0340 
0517 
2001 
2371 
0350 
0000 
0430 



IB 
1C 
ID 
IE 

IF 
IG 
1H 
1J 
IK 
1L 
1M 
IN 
IP 
1Q 
1R 
IS 
IT 
1U 
IV 

1 w 
IX 
1Y 
1Z 
2A 
2B 
2C 
2D 
2£ 
2F 
2G 
2H 
2J 
2K 
2L 
2tf 
2H 
2? 
2Q 
2R 
2S 

2 T 
2V 
2W 
2X 
2Y 

3A 
3B 
3C 
3D 
3E 
3F 
3H 
6 A 
6E 
7A 
78 
7C 



LINE 

174 

645 

667 

712 

703 

102 

615 

403 

751 

414 

476 

101 

152 

143 

1022 

30 

761 

731 

575 

547 

374 

451 

436 

425 

55 

47 

61 

1057 

1075 

1 104 

1115 

1 136 

1164 

523 

213 

20 

36 

1010 

470 

70 

116 

1303 

1267 

1232 

134 

1217 

1246 

265 

333 

240 

322 

234 

351 

541 

1322 

1317 

1313 

1314 

1316 



VALUE 
7D 0300 
0000 
0270 
042 6 
0771 



7E 
7F 
7G 
9J 



LINE 
1312 
1315 
1321 
1320 
1323 



32 



FILECOMS* 1 LN=1 



LAP6 



CONT 







CLAP 6 FILE COMMANDS 






CSM. 


>SB*CM*CB*LI*PM 






C BLOCKS 


320-321* 323 






C QUARTERS 0*1*3 








ai5 




15 


0701 




RCG 


7E 


16 


7300 




7I7D 


17 


6151 




J MP 


IN 


20 


6256 




JMP 


3A C CM 


21 


6255 




JMP 


3A-1 CCB 


22 


6233 




JMP 


3C L SO 


23 


6171 




JMP 


1A L SM 


24 


6322 




J MP 


3B CLI 


25 


6312 




JMP 


3D CPM 






CTAPE CONTROL 


26 


0042 


#2M 


SET 


2 


27 


0104 




IF 




30 


0045 




SET 


5 


31 


0002 




2 




32 


0066 




SET 


i 6 


33 


003 6 




1R 


CBN 


34 


6065 




JMP 


2C 


35 


0015 




15 


CRDC i u 


36 


0350 


#1R 


7A 




37 


6073 




JMP 


2R CUP BN 


40 


6043 




JMP 


P+3 CALL DONE 


41 


0450 




AZE 


C7 DONE? 


42 


6035 




JMP 


1R-1 CNO 


43 


1020 




LDA 


i CALL OR 7 DONE 


44 


0703 


#2N 


MTB 


CMT8 u 


45 


6134 




JMP 


2X CMOTION CHECK 






C WRITE 




46 


0042 




SET 


2 


47 


0005 




5 




50 


0066 




SET 


i 6 


51 


0054 




2B 




52 


6065 




JMP 


2C 


53 


0000 




TAPE WR 


54 


0000 


#2B 


BN 




55 


6073 




JMP 


2R CUP BN 


56 


6103 




JMP 


1M CALL DONE 


57 


0450 




AZE 




60 


6053 




JMP 


2B-1 


61 


1020 




LDA 


i CALL OR 7 DONE 


62 


0706 


#2A 


WRITE UNIT 


63 


6134 




JMP 


2X 


64 


6030 




JMP 


2M+2 






CSET QUARTER 


65 


0011 


//2C 


CLR 




66 


1106 




ADA 


6 


67 


1620 




BSE 


i 


70 


1000 




1000 


71 


1046 




STA 


6 


72 


6000 




JMP 









CUP 


BLOCK NUMBER 


73 


1020 


#2R 


LDA 


i 



33 



FILECOMS*£ 


I LN-71 


? 


CONT 






74 


1001 




1001 


75 


1206 




LAM 6 


76 


1560 




BCL i 


77 


0777 




777 


100 


0222 




XSK i 2 


101 


0220 




XSK i 


102 


6000 




JMP 






C CHECK N BLOCKS 


103 


0062 


#1M 


SET i 2 


104 


0000 


01F 


-M BLOCKS 


105 


04 50 




CHECK TAPE 


106 


0000 




FILE BM 


107 


0450 




AZE 


no 


6117 




JMP 2S 


11 1 


2106 




ADD P-3 


112 


2143 




ADD IP 


113 


4106 




STC P-5 


1 14 


0222 




XSK i 2 


115 


6105 




JMP 1F+1 


116 


6015 




JMP 15 






C CHECK FAIL 


117 


1000 


#2S 


LDA 


120 


0106 




1M+3 


121 


4054 




STC 28 


122 


2002 




ADD 2 


123 


1040 




STA 


124 


0104 




IF 


125 


2036 




ADD 1R 


126 


0470 




AZE i 


127 


0017 




COM 


130 


1560 




BCL i 


231 


7000 




7000 


132 


4036 




STC 1R 


133 


6030 




JMP 2M+2 






EMOTION CHECK 


134 


0041 


#2X 


SET 1 


135 


0000 







136 


1400 




SHD 


137 


4142 




41 P+3 


140 


6000 




JMP 


141 


4142 




STC P+l 


142 


1500 




STOP TAPE 


143 


0001 


#1P 


1 C CONSTANT 


144 


0453 




IBZ 


145 


6144 




JMP P-l 


146 


6001 


CNO 


JMP 1 


147 


0703 




MTB 7E 


150 


0000 







151 


0011 


#M 


CLR 


152 


0061 




SET i 1 


153 


0340 




340 


154 


1760 




DSC i 


155 


3077 




3077 


156 


1760 




DSC i 


157 


7706 




7706 



LAP6 
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P 


CO N'T 








160 


0061 




SET 


i 1 


161 


0364 




364 




162 


1760 




DSC 


i 


163 


4177 




417*3 


" 


164 


1760 




DSC 


i 


16 5 


7741 




7741 




166 


0415 




KST 




167 


6152 




JMP 


1N+1 


170 


60 IS 




JMP 


15 






£8AVE MANUSCRIPT 






CLAST 3i\ 


J IN ACC 


171 


1 120 


#1A 


ADA 


i 


172 


2431 




-7A- 


•5000+2 


173 


0017 




COM 


C CONSTANT 


174 


4104 




STC 


IF 


175 


0720 




RDC 


i 7E 


176 


1321 




1 I7D+21 


177 


0720 




RDC 


I 7E 


200 
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31 7D+23 


201 


2143 
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IP 


202 


4450 




STC 


2Q 






CCHECK PARTIAL SAVE 


203 


1100 




ADA 




204 


2371 




6E 




205 


0450 




AZE 




206 


7400 




JMP 


2P 


207 


1020 


#2L 


LDA 


i 


210 
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IB 




21 1 


6720 




JMP 


1J+2 CFIX Ri 


212 


6725 




JMP 


IS 


213 


6407 




JMP 


1Z 


214 


6417 




JMP 


1Y 


215 


6431 




JMP 


IX 


216 


6222 




JMP 


P+4 


217 


6361 




JMP 


1W 


220 


6455 




JMP 


1L CREPLACE 


221 


6224 




JMP 


p+3 


222 


6524 




JMP 


IV 


223 


6151 




JMP 


IN 


224 


0044 




SET 


4 


22 5 


0002 




2 


CCONSTANT 


226 


6551 




JMP 


1U 


227 


1620 




3SE 


i 


230 


0000 


#3E 







231 


6700 




JMP 


IT 


232 


6026 




JMP 


2M 






CSAVE BINARY 


233 


0720 


#3C 


RDC 


i 7E 


234 


3330 




3I7D+30 CCV QO 


235 


3410 




ADD 


1410 


236 


1 120 




ADA 


i 


237 


0340 




7D+40 


240 


4036 




STC 


1R 


241 


3412 




ADD 


1412 


242 


4230 




STC 


3E 


243 


3411 




ADD 


1411 



LAP6 



UNIT 
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LAP6 
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CONT 






244 


0470 




AZE i 


34 5 


6147 




JMP 1N-2 


246 


4104 




STC IF" 


247 


1 120 




ADA i 


850 


0003 




3 


251 


4450 




STC 2Q 


2 52 


1120 




ADA i 


253 
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254 


6211 




JMP 2L+2 






CCOPY BINARY 


255 


2225 




ADD 3E-3 £2 






CCOPY MANUSCRIPT 


256 


2143 


#3A 


ADD IP CI 


257 


4450 




STC 2Q 


260 


672S 




JMP IS 


261 


6407 




JMP 1Z 


262 


6151 




JMP IN 


263 


6431 




JMP IX 


264 


6151 




JMP IN 


265 


6361 




JMP 1W 


266 


6270 




JMP P+2 


267 


6151 




JMP IN 


270 


0017 




COM 


271 


4104 




STC IF 


272 


1002 




LDA 2 


273 


1560 




BCL i 


274 


7000 




7000 


275 


4036 




STC 1R 


276 


1002 




LDA 2 


277 


1560 




oC/L • 


300 


0777 




777 


301 


4230 




STC 3E 


302 


6716 




JMP 1J 


303 


1000 




LDA 


304 


2377 




6E+6 


305 


1660 




BCO i 


30 6 


0010 




10 


307 


1040 




STA 


310 


2377 




6E+6 


311 


6212 




JMP 2L+3 






£ PRINT MANUSCRIPT 


312 


0720 


#30 


RDC i 7E 


313 


3335 




3I7D+35 


314 


1020 




LDA i 


315 


63 40 




JMP 3F 


316 


4334 




STC 3F-4 


317 


1020 




LDA i 


320 


7002 




JMP 1002 


321 


4346 




STC 3F+6 






CLIST-QO 


322 


2143 


#38 


ADD IP CI 


323 


4450 




STC 2Q 


*3 £* *i 


6725 




JMP IS CFIX RCG 


32 5 


6407 




JMP 1Z CRCG INDEX 


326 


6151 




JMP IN CNO INDEX 


327 


6431 




JMP iX CNAME 
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LAP6 



p 


CO NT 






330 


6151 




J MP IN CNO NAME 


331 


63 61 




JMP 1W C ENTRY 


332 


6334 




J MP P+2 


333 


6151 




JMP IN CNO ENTRY 


334 


0720 




RDC i 7£ 


335 


2332 




2I7D+32 


336 


0700 




RDC 7E 


337 


1333 




1 I7D+33 


340 


1002 


#3F 


LDA 2 CBN 


341 


5377 




STC 1377 


342 


2062 




ADD 2A 


343 


1 120 




ADA i 


344 


7774 




-3 CUNIT 


345 


5376 




STC 1376 


346 


0061 




SET i 1 


3 47 


2370 




6E-1 


350 


0062 




SET i 2 


351 


0770 




9J-1 


352 


006 3 




SET i 3 


353 


7771 




-6 


354 


1021 




LDA i 1 


355 


1062 




STA i 2 


3 56 


0223 




XSK i 3 


357 


63 54 




JMP P-3 


360 


7001 
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SET 5 


3 62 


0002 




2 
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LDA i 5 


364 


0451 




APO 
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0220 




XSK i 


3 66 


6000 




JMP 
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#1H 


LDA 


370 


0006 




6 


371 


2104 
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372 


0470 




AZE i 
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0017 
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374 


0451 




APO 
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0220 




XSK i 


376 


6000 




JMP 
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LDA 


400 
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2 


401 


1620 




BSE i 


402 


7007 




7007 


403 


4002 
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404 
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XSK 2 


405 


6000 




JMP 


406 
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#1Z 


TAPE 
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1J7G 
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LDA 


412 
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416 
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417 
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SET 1 
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2777 




2777 


423 


1020 




LDA i 
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XSK 2 
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6425 
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3000 
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SET i 4 
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6377 




MP IK 
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1464 




SAE i A 


444 


6435 




JMP 1X+4 


445 


0223 




XSK i 3 


446 


6442 




Jivjp p-4 


447 


1020 




LDA i 


450 


0004 


02Q 


1 OR 3 


451 


1140 




ADM 


452 


0002 




2 


453 


0221 




XSK i I 


454 


6001 




MAP 1 






C REPLACE 


455 


0043 


#1L 


SET 3 


456 


0000 







457 


0061 




SET i 1 


460 


0234 




234 


461 


0064 




SET i 4 


462 


4516 




3H-4000 


463 


1324 




LDH i 4 


464 


1420 




SHO i 


46 5 


1200 




1200 


466 


6502 




JMP 2K 


4 67 


0241 




ROL 1 


470 


1120 




ADA i 


471 


2001 




6A 


472 


4005 




STC 5 


473 


1745 




DSC 5 


474 


1765 




DSC i 5 


475 


1020 




LDA i 


47 6 


0004 




4 


477 


2001 




ADD 1 
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LAP6 



p 


CO NT 




500 


4001 


STC 1 


501 


6463 


JMP 1L+6 


502 


0415 


#2K KST 


503 


6457 


JMP 1L+2 


504 


0515 


KBD 


505 


1460 


SAE i 


506 


0045 


45 CR 


507 


601 S 


JMP 15 


510 


0045 


SET 5 


51 1 


0002 


2 


512 


1020 


LDA i 


513 


5757 


5757 


514 


1045 


STA 5 


515 


1065 


STA i 5 


516 


6003 


JMP 3 
C REPLACE TABLE 


517 


4530 


#3H 4530 


520 


4337 


4337 


521 


2426 


2426 


522 


3013 


3013 


523 


1200 


1200 
CSLOT SEARCH 


524 


0064 


#1V SET i 4 


525 


2372 


6E+1 


52 6 


0041 


SET 1 


527 


0000 





530 


0062 


SET i 2 


531 


3000 


3000 


532 


6377 


JMP IK 


533 


0045 


SET $ 


534 


0002 


2 


535 


1022 


LDA i 2 


536 


1460 


SAE i 


537 


5757 


5757 


540 


6532 


JMP 1V+6 


541 


1024 


LDA i 4 


542 


1065 


STA i 5 


543 


1520 


SRO i 


544 


3567 


3567 


545 


6541 


JMP P-4 


546 


0042 


SET 2 


547 


0005 


5 


550 


6447 


JMP 2Q-1 
CGAP SEARCH CQNTF 


551 


0050 


#1U SET 10 


552 


0000 





553 


0066 


SET i 6 


554 


7347 


-7C 


555 


1020 


LDA i 


556 


7777 


7777 


557 


4654 


STC IE 


560 


6617 


JMP IB 


56 1 


0047 


SET 7 


562 


0006 


6 


563 


0011 


CLR 


564 


4654 


STC IE 
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LAP6 



p 


CONT 




56 5 


0066 


SET i 6 


56 6 


0270 


7F 


567 


6617 


JMP IB 
LFIND NEAREST OP 


570 


1000 


#1G LDA 


571 


0007 


7 


572 


0017 


COM 


573 


2006 


ADD 6 


574 


1120 


ADA i 


575 


6723 


-7G-7G 


576 


0451 


APO" 


577 


6602 


JMP P+3 


600 


6367 


JMP 1H 


601 


6010 


JMP 10 


602 


1000 


LDA 


603 


0007 


7 


604 


1120 


ADA i 


605 


1000 


1000 


606 


6371 


JMP 1H+2 


607 


6613 


JMP P+4 


610 


6367 


JMP IK 


61 1 


6010 


JMP 10 


6 12 


6151 


JMP IN 


6 13 


1000 


LDA 


6 14 


0007 


7 


615 


0017 


COM 


616 


6010 


JMP 10 
EGAP SEARCH 


617 


0041 


#18 SET 1 


620 


0000 





621 


0062 


SET i 2 


622 


7000 


7000 


623 


6377 


JMP IK 


624 


1322 


LDH i 2 


625 


1420 


SHQ i 


626 


5700 


5700 


627 


6623 


JMP P-4 


630 


0222 


XSK i 2 


631 


0222 


XSK i 2 


632 


0222 


XSK i 2 


633 


6640 


JMP 1C 


6 34 


6662 


JMP ID 


635 


6640 


JMP IC 


636 


6662 


JMP ID 


637 


6623 


JMP 1B+4 
CGET BN 


640 


1022 


#1C LDA i 2 


641 


1560 


BCL i 


642 


7000 


7000 


643 


1040 


STA 


644 


0011 


11 


645 


1122 


ADA i 2 


646 


0451 


APO 


647 


0220 


XSK i 
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0017 


COM 


651 


1040 


STA 
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LAP6 



p 
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0012 




12 
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1520 




SRO i 


654 


0000 


#1E 


FWQ OR BW 


655 


6000 




JMP 


6 56 


0052 




SET 12 


6 57 


001 1 




11 


660 


4011 




STC 11 


66 1 


6000 




JMP 






CBN 


COMPARE 


662 


1000 


#1D 


LDA 


66 3 


0011 




11 


66 4 


2006 




ADD 6 


665 


0470 




AZ£ i 


666 


0017 




COM 


66 7 


0451 




APO 


670 


6000 




JMP 


671 


2104 




ADD IF 


672 


0451 




APO 


673 


0470 




AZE i 


674 


6000 




JMP 


675 


0046 




SET 6 


676 


0012 




12 


677 


6621 




JMP 1B+2 






C WRITE INDEX 


700 


1044 


#1T 


STA 4 


701 


1560 




BCL i 


702 


7000 




7000 


703 


1040 




STA 


704 


0054 




2B 


705 


4106 




STC 1M+3 


706 


2104 




ADD IF 


707 


0017 




COM 


710 


1064 




STA i A 


71 1 


0435 




KST i 


712 


6015 




JMP 15 


713 


0000 




TAPE INS 


714 


1426 




1 I7G 


715 


6000 




JMP 






CFIX TAPE INS 






CROC UNIT 


716 


1000 


#1J 


LDA 


717 


2377 




6E+6 


720 


1140 




ADM 


721 


0044 




2N CMTB 


722 


1140 




ADM 


723 


0035 




1R-1 CROC 


724 


6000 




JMP 






C WRITE UNIT 


725 


1000 


#1S 


LDA 


726 


2377 




6E+6 


727 


1620 




BSE i 


730 


0701 




RCG 


731 


1040 




STA 


732 


0407 




1Z 


733 


2225 




ADD 3E-3 


734 


1040 




STA 
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CO NT 




73 5 


0062 


2A CMTB u 


736 


1040 


STA 
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1 42 


2X+6 t MOTION 


740 


2225 


ADD 3E-3 C2 


741 


1040 


STA 


742 


0713 


1T+13 


743 


1 120 


ADA i 


744 


0021 


21 


745 


1040 


STA 


746 


0053 


2B-1 


747 


2143 


ADD IP CI 


750 


4105 


STC 1M+2 


751 


6000 


JMP 

C PARTIAL SAVE 

Q14GG 


1400 


0061 


&2P SET i 1 


1401 


2370 


6E-1 


1 402 


00 62 


SET i 2 


1403 


7770 


-7 


i 404 


0063 


SET i 3 


1405 


1665 


2T-1 


1 406 


1021 


LDA i 1 


1407 


1063 


STA i 3 


1410 


0222 


XSK 1 2 


141 1 


7406 


JMP P-3 


1412 


1020 


fflQ LDA i " 


1 413 


0350 r 


7A 


1 414 


1040 


STA 


1415 


1616 


2W 


1 416 


5554 


STC 2J+3 


1 417 


1020 


LDA i 


i 420 


43 50 


4I7A 


1421 


5652 


STC 2V 


1 422 


3666 


ADD 2T 


1423 


5474 


STC 2F 


1 424 


4001 


STC 1 


1425 


0062 


SET i 2 


1426 


7777 


7777 


1 427 


1020 


LDA i 


1430 


0000 


7B 


1 431 


1660 


BCO i 


1432 


0010 


10 


1433 


1060 


STA i 


1434 


0000 


OTHER UNIT 


1435 


1620 


BSE i 


1436 


0703 


MTB 


1437 


1040 


STA 


1440 


1661 


2V+7 


1441 


1120 


ADA i 


1442 


0023 


23 


1443 


1040 


STA 


1444 


1651 


2V-1 


1 445 


2143 


ADD IP U 


1446 


5553 


STC 2J+2 


1447 


3667 


#2D ADD 2T*1 


1450 


0470 


AZE i 



LAP6 



CHK 
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CO NT 






1451 


3517 




ADD 2H-5 


1 4 52 


2143 




ADD IP CI 


1453 


5465 




STC 2E 


1 454 


7603 




JMP 2Y 


1 455 


1321 




LDH i 1 


1456 


1420 




SHD i 


1457 


7700 




7700 


1460 


6151 




JMP IN 


1461 


1460 




SAE i 


1 465 


0012 




12 


1 46 3 


7454 




JMP P-7 


1464 


1020 




LDA i 


1465 


4000 


//2£ 


SECOND LINE NUMBE 


146 6 


3517 




ADD : 2H- 5 


1467 


0470 




AZE i 


1470 


6151 




JMP IN 


1471 


5465 




STC 2E 


1472 


3517 




ADD 2H-5 


1473 


1160 




ADM i "■ 


1 474 


0400 


#2F 


FIRST LINE NUMBER 


1475 


0450 




AZE 


1476 


7454 




JMP 2D+5 






£ TRANSFER READY-FIRST 


1477 


1020 




LDA i 


1500 


2065 




2065 


1501 


1062 




STA i 2 


1502 


0017 




COM 


1503 


1062 




STA i 2 


1 504 


7631 


#2G 


JMP 2Z 


1505 


7603 




JMP 2Y 


1 506 


1321 




LDH i 1 


1507 


13 62 




STH i 2 


1510 


1420 




SHD i 


151 1 


7700 




7700 


1512 


7530 




JMP 2H+4 


1513 


1460 




SAE i 


1 514 


0012 




12 


1 515 


7504 




JMP 2G 


1516 


1020 




LDA i 


1517 


7776 




-1 C CONSTANT 


1 520 


1 140 




ADM 


1 521 


1465 




2E 


1 522 


0450 




AZE 


1 523 


7504 




JMP 2G 






CFINISHED MAKING NEW 


1524 


7631 


#2H 


JMP 22 


1525 


1020 




LDA i 


1526 


7777 




7777 


1 527 


1362 




STH i 2 


1530 


1000 




LDA 


1531 


0002 




2 


1 532 


1560 




BCL i 


L DOw 


6377 




6377 


1534 


0244 




ROL 4 


1535 


2143 




ADD IP CI 


1536 


0017 




COM 



IAP6 



LINE FOUND 



MS 
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FILECOMS* 14 LN=1151 



LAP6 



p 


CONT 




1537 


4004 


STC 4 


1540 


3630 


ADD 2W+12 


2 341 


566 1 


STC 2V+7 


1542 


7640 


JMP 2Z+7 


1 543 


1560 


BCL> i 


1 544 


7000 


7000 


1 545 


0017 


COM 


1546 


1120 


ADA i 


1547 


03 50 


7A 


1 550 


4104 


STC IF 
C CHECK TAPE 


1551 


0041 


#2J SET 1 


1552 


0104 


IF 


1553 


0000 


CHECK 


1554 


0350 


7A 


1 555 


0450 


AZE 


1556 


7412 


JHP 10 


1557 


2143 


ADD IP CI 


156 


3554 


ADD 2J+3 


1561 


5554 


STC 2J+3 


156 2 


0221 


XSK i 1 


1563 


7553 


JMP 2J+2 


1564 


0720 


RDC i 7E 


1565 


4304 


4I7D+4 


1566 


0061 


SET i 1 


1567 


2370 


6E-1 


1570 


0062 


SET i 2 


1571 


7770 


-7 


1572 


0063 


SET i 3 


1573 


1665 


2T-1 


1 574 


1023 


LDA i 3 


1575 


1061 


STA i 1 


1576 


0222 


XSK i 2 


1577 


7574 


JMP P-3 


1600 


1000 


LDA 


1601 


1434 


2D- 13 


1602 


6211 


JMP 2L+2 
CREAD OLD MS 


1603 


0043 


#2Y SET 3 


1604 


0000 





1605 


0011 


CLR 


1606 


2001 


ADD 1 


1607 


0450 


AZE 


1610 


6000 


JMP 


16 tl 


3616 


ADD 2W 


1612 


1620 


BSE i 


1613 


6000 


6000 


1614 


5616 


STC 2W 


1615 


0720 


RDC i 78 


1616 


0350 


#2W 7A 


1617 


3654 


ADD 2V+2 


1620 


1200 


LAM 


1621 


1616 


2W 


1622 


0451 


APO 


1623 


7615 


JMP 2W-1 


16 24 


0703 


MTB 7B 



44 



FILECOrlS* 15 LN=124i 


p 


CO NT 




\ 62 5 


0000 





1 626 


0061 


SET i 1 


1627 


6777 


6777 


1630 


6003 


JMP 3 
t WRITE NEW MS 


1 631 


0064 


#2Z SET i 4 


16 35 


7775 


-2 


1 633 


ooi r 


CLR 


1634 


2002 


ADD 2 


163 5 


14 60 


SAE i 


163 6 


6777 


6777 


1 637 


6000 


JMP 


1640 


0043 


SET 3 


1641 


0000 





1 642 


1000 


LDA 


1 643 


1652 


2V 


1 644 


1560 


BCL i 


1645 


3000 


3000 


164 6 


5652 


STC 2V 


16 47 


0435 


KST i 


16 50 


6015 


JMP 15 


1651 


1356 


WRITE TAPE 


1652 


43 50 


#2V 4I7A 


1653 


1020 


LDA i 


1654 


1001 


1001 C CONSTANT 


1655 


1 1 4U 


ADM 


1656 


1652 


2V 


1657 


0224 


XSK i 4 


16 60 


7647 


JMP 2V-3 


166 1 


1500 


STOP TAPE 


1662 


0000 





1663 


00 62 


SET i 2 


166 4 


7777 


7777 


1665 


6003 


JMP 3 


1666 


0000 


#2T CLN 


1667 


0000 


CLN 


1670 


7777 


-0 CNAME 


1671 


7777 


-0 


1672 


7777 


-0 


1673 


7777 


-0 


1 674 


7777 


-0 CUNIT 
7D=300 
7A=350 
73=0 
7£=0 
7C=430 
6E=237l 
7G=426 

7F=270 CFILE UP 
6A=2001 
9J=771 
CLAP6 FILE COMMANDS 



IAP6 



BOUND 



45 



COPYFILE*0 






VALUE 


LINE 


VALUE 


LINE 


1A 0255 


255 


6Z 0376 


413 


1Q 0203 


203 


7C 0430 


1247 


1Q 1062 


1131 


70 0300 


1246 


ID 1103 


1152 


7E 0000 


1250 


IE 1122 


1 172 


7F 0270 


X ££ ^#<2J 


IF 1136 


1210 


76 0426 


1253 


1G 1151 


* Gil £§ *ni 






1H 0020 


11 






1J 1043 


1107 






1M 0123 


120 






1R 0064 


57 






IS 0172 


171 






IT 0136 


133 






1U 0147 


145 






IV 0162 


160 






1W 0105 


101 






IK 01 13 


107 






2A 0071 


65 






2B 0077 


73 






2M 0030 


21 






2N 0033 


24 






2S 0056 


51 






2X 0047 


41 






3A 1030 


1072 






38 1040 


1103 






3C 1054 


1 122 






4A 0561 


606 






48 0603 


630 






4C 0706 


737 






4D 0730 


76 2 






4E 0747 


1002 






AF 0740 


772 






46 06 53 


702 






AH 0775 


1032 






4 J 1023 


1063 






4K 1026 


1067 






4L 1016 


1055 






5A 0323 


330 






58 1046 


1 1 13 






5C 0325 


333 






5D 0354 


366 






5E 0334 


342 






5F 1172 


1245 






6A 0305 


310 






6E 2371 


1251 






6J 0341 


350 






6K 03 67 


402 






6L 0550 


573 






6M 0522 


543 






6N 0540 


562 






6P 0662 


712 






6R 0722 


753 






6S 0500 


520 






6T 0406 


423 






6U 0444 


462 






6V 0420 


43 5 






6W 0470 


507 






6X 0437 


455 






6Y 0424 


442 







LAP6 



46 



COPYFILE, 1 LN=1 



LAP6 



CO NT 







CLAP6 COPY FILE 






CBLOCKS 314-316 






t QUARTERS 0-3 








B15 


15 


0701 




RCG 7E 


16 


7300 




7I7D 


17 


6203 




JMP IB 






CTAPE TRANSFERS 


20 


1037 


#1H 


LDA i 17 


21 


0451 




APO 


22 


6123 




JMP 1M 


23 


4077 




STC 2B 


24 


1037 




LDA i 17 


25 


40 64 




STC 1R 


26 


1037 




LDA i 17 


27 


4002 




STC 2 


30 


0043 


#2M 


SET 3 


31 


0002 




2 C CONSTANT 


32 


6056 




JMP 2S 


33 


1500 


#2N 


STOP TAPE- READ DONE 


34 


0000 







35 


0453 




IBZ 


36 


6035 




JMP P-i 


37 


0042 




SET 2 


40 


0003 




3 C CONSTANT 


41 


6071 




JMP 2A CWRI 


42 


6045 




JMP p+3 CWRI DONE 


43 


6047 




JMP 2X CMOTION STOP 


44 


6030 




JMP 2M 


45 


6047 




JMP 2X 


46 


6020 




JMP 1H 






CMTB NEW 


47 


0041 


#2X 


SET 1 


50 


0000 







51 


0000 




MOVE TAPE 


52 


0001 




1 C CONSTANT 


53 


0453 




IBZ 


54 


6053 




JMP P-l 


55 


6001 




JMP 1 






CROC* N BLOCKS 


56 


0041 


02S 


SET 1 


57 


0000 







60 


0064 




SET i 4 


61 


0064 




1R 


62 


6105 




JMP 1W 


63 


0015 




READ TAPE 


64 


0000 


#1R 


8N 


65 


6113 




JMP IX 


66 


0450 




AZE 


67 


6063 




JMP 1R-1 


70 


6001 




JMP 1 






CWRITE N BLOCKS 


71 


0041 


#2A 


SET 1 


72 


0000 







73 


0064 




SET i 4 


74 


0077 




2B 



OR FULL 



47 



G0PYFILE,2 LN=71 




p 


CO NT 








75 


6105 




JMP 


1W 


76 


1356 




WRITE TAPE 


77 


0000 


#28 


3N 




100 


6113 




JMP 


IX 


ioi 


0450 




AZE 




102 


6076 




JMP 


2B-1 


103 


0221 




XSK 


i 1 


104 


6001 




JMP 


1 


105 


0011 


#1W 


CLR 




106 


1 104 




ADA 


4 


107 


1 120 




ADA 


i 


1 10 


3000 




1000 OR 2000 


1 1 1 


1044 




STA 


A 


1 12 


6000 




JMP 





113 


1020 


#1X 


LDA 


i 


1 14 


1001 




1001 


C CONSTANT 


115 


1204 




LAM 


4 


1 16 


1560 




8CL 


i 


1 17 


0777 




777 




120 


0222 




XSK 


i 2 


121 


6000 




JMP 





122 


6001 




JMP 


1 






C CHECK ALL TRANSFERS 


123 


0077 


#1M 


SET 


i 17 


124 


0202 




18-1 




125 


1037 




LDA 


i 17 


126 


0451 




APO 




127 


6172 




JMP 


IS 


130 


4136 




STC 


IT 


131 


1037 




LDA 


i 17 


132 


4005 




STC 


5 


133 


1037 




LDA 


i 17 


134 


4002 




STC 


2 


135 


0450 




CHECK TAPE 


136 


0000 


#1T 


BN 




137 


0450 




AZE 




140 


6147 




JMP 


1U CERROR 


141 


2136 




ADD 


IT 


142 


20 52 




ADD 


2X+3 CI 


143 


4136 




STC 


IT 


144 


0222 




XSK 


I 2 


145 


6135 




JMP 


1T-1 


146 


6125 




JMP 


1M+2 






CERROR 




147 


1000 


#1U 


LDA 




150 


0136 




IT 




151 


4077 




STC 


28 


152 


0043 




SET 


3 


153 


0002 




2 




154 


1017 




LDA 


17 C-N BLKS 


155 


0017 




COM 


C+N BLKS 


155 


2002 




ADD 


2 C-N LEFT 


157 


2005 




ADD 


5 


160 


4064 




STC 


1R 


161 


0062 




SET 


i 2 


162 


7776 


#1V 


-1 


C CONSTANT 



LAP6 



48 



CQPYF 


'ILE>3 


i LN=161 


p 


CJMT 




16 3 


60 56 


JMP 2S 


164 


00 62 


SET i 2 


165 


7776 


-1 


166 


6071 


JilP 2A 


167 


0042 


SET 2 


170 


0003 


3 


171 


6135 


JMP 1T-1 
CFINISHED 


172 


1 520 


#1S SRO i 


173 


7777 


-0 CNOT OK IF 


174 


6015 


JMP 15 COK IF ONE 


175 


0720 


RDC i 7E 


176 


4304 


4I7D+4 C GRIDS 


177 


0700 


ROC 7E 


200 


3324 


3I7D+24 CtNOt FOR 


201 


2174 


ADDP-5 CCHANGE AM 


202 


7401 


JMP 1401 
CFILE ORGANIZE 


203 


0041 


#1B SET 1 


204 


2377 


6E+6 CUNIT 


205 


0720 


RDC i 7E 


206 


1315 


1 I7D+15 


207 


0720 


ROC i 7E 


210 


2316 


2170+16 


211 


0011 


CLR 


212 


2001 


ADD 1 


213 


1620 


BSE i 


214 


0700 


RDC 


215 


1040 


STA 


216 


1035 


3A+5 CRDC OLD-IND 


217 


2040 


ADD 2N+5 £3 


220 


1040 


STA 


221 


0033 


2N CMTB OLD 


222 


1120 


ADA i 


223 


0015 


15 


224 


1040 


STA 


22 5 


1030 


3A 


226 


1040 


STA 


227 


0063 


1R-1 CRDC i OLD 


230 


1660 


SCO i 


231 


0010 


10 


232 


U20 


ADA i 


233 


7760 


-17 


234 


1040 


STA 


235 


1040 


3B CRCG NEW 


236 


2031 


ADD 2M+1 C2 


237 


1040 


STA 


240 


0051 


2X+2 CMTB NEW 


241 


2031 


ADD 2M+1 C2 


242 


1040 


STA 


243 


1056 


3C+2 CWCG NEW 


244 


1120 


ADA i 


245 


0021 


21 


246 


1040 


STA 


247 


0076 


2B-1 CWRI i NEW 


250 


2052 


ADD 2X+3 CI 



LAP6 



AM 



49 



DOPYf 


r IL£, 4 LN=251 LAP6 




p 


CONT 








251 


4135 




STC 1T-1 CCHK i 




252 


2001 




ADD 1 




253 


146 




SAE i 




254 


0000 




7E 




255 


7043 


#1A 


JMP 1J 




256 


7030 




JMP 3A 




257 


7040 




JMP 38 








CCHECK OLD INDEX 




2 60 


0061 




SET i 1 




261 


3777 




3777 




2 62 


1021 




LDA i 1 




263 


1460 




SAE i 




264 


5757 




5757 




265 


6015 




JMP 15 CNO OLD INDEX 




266 


0062 




SET i 2 




267 


2777 




2777 




270 


1022 




LDA i % 




271 


1420 




SHD i 




272 


5700 




5700 




273 


6303 




JMP 6A-2 








CMAKE NEW INDEX 




274 


0063 




SET i 3 




275 


2777 




2777 




276 


1020 




LDA i 




277 


5757 




5757 




300 


1063 




STA i 3 




301 


0203 




XSK 3 




302 


6300 




JMP P-2 




303 


0077 




SET i 17 




304 


1 171 




5F-1 








CINDEX COMPARE AND TRANSFER TABLE 


MAKE-UP 


30 5 


1020 


06A 


LDA i 




306 


0451 




APO C CONSTANT 




307 


4437 




STC 6X 




310 


2355 




ADD 5D+1 CAPO i 




31 1 


4445 




STC 6U+1 




312 


0074 




SET i 14 




313 


1045 




5B-1 C TABLE 




314 


6373 




JMP 6Z-3 




315 


6341 




JMP 6J CNO OLD FWD LEFT 








CFIND NEAREST OLD BACKWARD 




316 


63 54 




JMP 50 




317 


6376 




JMP 6Z 




320 


6367 




JMP 6K CNO OLD 8WD LEFT 








CFIND NEAREST FWD GAP 




321 


6500 




JMP 6S 




322 


6550 




JMP 6L CNO FWD GAP 




323 


6522 


#5A 


JMP 6M CFIND BWD GAP 




324 


6334 




JMP 5E CNO BWD GAP—TRANSFER 


FORWARD 






C TRANSFER NEAREST 




325 


1000 


#5C 


LDA 




326 


1052 




5B+4 CFWD GAP 




327 


3053 




ADD SB* 5 CBWD GAP 




330 


1120 




ADA i 




331 


6723 




-7G-7G CMIDPOINT 




uOC 


0471 




APO i 





50 



30PYFILE, 5 LN=341 IAP6 


p 


CO NT 






333 


6552 




JMP 6L+2 CASSIGN BACKWARD 


334 


1 000 


#5E 


LDA CASSIGN FWD 


335 


1052 




5B+4 


336 


0017 




COM 


337 


5053 




STC 5B+5 


340 


6561 




JMP 4A 






CiMO 


OLD FWD LEFT 


341 


6354 


#6J 


JMP 50 


342 


6376 




JMP 6Z 


343 


7054 




JMP 3C CNO OLD BWD LEFT. 






INUE 






CFIND FARTHEST BWD ENTRY 


344 


0074 




SET i 14 


345 


1045 




5B-1 


346 


1020 




LDA i 


347 


0471 




APO i 


350 


4445 




STC 6U+1 


351 


6373 




JMP 6Z-3 


352 


0000 




GOON 






CFIND NEAREST FWD GAP 


353 


6321' 




JMP 5 A- 2 






CFIX NEAREST BWD ENTRY 


354 


1020 


#5D 


LDA i 


355 


0471 




APO i C CONSTANT 


356 


4437 




STC 6X 


357 


2306 




ADD 6A+1 CAPO 


360 


4445 




STC 6U+1 


361 


1020 




LDA i 


3 62 


1000 




1000 


363 


4444 




STC 6U 


364 


0074 




SET i 14 


365 


1047 




5B+1 


366 


6000 




JMP 






CNO 


BWD ENTRY — FIND FARTHEST 


367 


1020 


#6K 


LDA i 


370 


0451 




APO 


371 


4437 




STC 6X 


372 


6317 




JMP 5A-4 






C TABLE MAKE-UP SUBROUTINES 






CFIND NEAREST* FARTHEST BWD 


373 


1020 




LDA i 


374 


6777 




-1000 


375 


4444 




STC 6U 


376 


0050 


#6Z 


SET 10 


377 


0000 







400 


0066 




SET i 6 


401 


2000 




2000 


402 


0065 




SET i 5 


.403 


7677 




-100 


404 


001 1 




CLR 


405 


4421 




STC 6V+1 


406 


6470 


#6T 


JMP 6W CFIX ADDRESS 


407 


6420 




JMP 6V CDONE 


410 


1 020 




LDA i 


411 


0004 




4 


412 


2006 




ADD 6 



WRITE NEW INDEX AND CONT 



FWD 



FWD ENTRY 



51 



0PYFIL£>6 LN=430 IAP6 


p 


GO NT 








413 


4004 




STC 


4 


414 


6424 




JMP 


6Y CMS CHECK 


415 


6424 




JMP 


6Y CBIN CHK 


41 6 


1026 




LOA 


i 6 


417 


6406 




JMP 


6T 


420 


1520 


#6V 


SRO 


i 


421 


0000 




TEST 


422 


0230 




XSK 


I 10 C FOUND P+2 


423 


6010 




JMP 


10 CNO ENTRIES LEFT-P+1 






C ENTRY CHECK 


424 


1024 


#6Y 


LDA 


i 4 CBN 


425 


1560 




BCL 


i 


42 6 


7000 




7000 


427 


4434 




STC 


p+5 


430 


1024 




LDA 


i 4 


431 


0451 




APO 




432 


6000 




JMP 


CNO ENTRY 


433 


1 020 




LDA 


i 


434 


0000 




NEW 


BN 


435 


1120 




ADA 


i 


436 


7351 




-7G 


C MIDPOINT 


437 


0471 


#6X 


APO 


OR APO i 


440 


6000 




JMP 


C ENTRY WRONG DIRECTION 


441 


1060 




STA 


i 


442 


0000 




-DIFFERENCE 


443 


1120 




ADA 


i 


AAA 


7777 


#6U 


-1000 OR +1000 CPOSITIVE DIFFERENCE 


445 


0471 




APO 


OR APO i 


446 


6000 




JMP 


CNEW NOT CLOSER 


447 


1000 




LDA 


CNEW CLOSER 


450 


0442 




6U-2 


451 


0017 




COM 




452 


4444 




STC 


6U 


453 


0017 




COM 




454 


4421 




STC 


6V+1 


455 


1000 




LDA 




456 


0006 




6 




457 


1074 




STA 


i 14 CNAME POINTER 


460 


1000 




LDA 




461 


0004 




4 




462 


1074 




STA 


i 14 C#8LKS POINTER 


46 3 


1020 




LDA 


i 


464 


7775 




-2 




465 


1140 




ADM 




466 


0014 




14 




467 


6000 




JMP 









CADDRESS FIX 


470 


1000 


#6W 


LDA 




471 


0006 




6 




472 


1620 




BSE 


i 


473 


00Q7 




7 




474 


4006 




STC 


6 


475 


0225 




XSK 


i 5 


476 


0220 




XSK 


i CNOT DONE, P+2 


477 


6000 




JMP 


CDONE, P+l 






CFWD GAP SEARCH CONTROL 



52 



COPYFILE, 7 LN=520 LAP 


p 


CO NT 








500 


0067 


#6S 


SET 


i 7 


501 


7347 




-7C 




502 


0050 




SET 


10 


503 


0000 









504 


0044 




SET 


4 


50 5 


1047 




5B+1 


, C# 8LKS POINTER 


50 6 


1020 




LOA 


i 


507 


7777 




7777 CIF I, FWD 


510 


6662 




JMP 


6P 


51 1 


1000 




LDA 




512 


0007 




7 




513 


0017 




COM 




514 


5052 




STC 


58+ 4 CFWD GAP BN 


515 


2007 




ADD 


7 C-FWD 


516 


3164 




ADD 


5F-6 UOOO 


517 


6542 




JMP 


6N+2 CCHECK BOUNDS 


520 


0230 




xsx 


i 10 COK, P+2 


521 


6010 




JMP 


10 CNOT OK 






CBWD GAP SEARCH CONTROL 


522 


0044 


#6M 


SET 


4 


523 


1051 




58+3 


52 4 


00 67 




SET 


i 7 


52 5 


0270 




7F 


CUPPER BOUND 


52 6 


0050 




SET 


10 


527 


0000 









530 


00 1 1 . 




CLR 




531 


6662 




JMP 


6P 


532 


6540 




JMP 


6N 


533 


6535 




JMP 


p+2 


534 


6010 




JMP 


10 


53 5 


5053 




STC 


5B+5 


536 


0230 




XSK 


I 10 


537 


6010 




JMP 


10 






C BOUNDS 


CHECK 


540 


1000 


#6N 


LDA 




541 


0007 




7 




542 


2740 




ADD 


4F ON BLKS TO MOV 


543 


0470 




AZE 


i 


544 


0017 




COM 




545 


0451 




APO 




546 


0220 




XSK 


i CNOT OK 


547 


6000 




JMP 


COK 






CNO 


FWD 


GAP 


550 


6522 


#6L 


JMP 


6M CFIND BWD GAP 


551 


6775 




JMP 


4H CNO FIT--FREE G 






CTRANSFER BWD 


552 


1000 




LDA 




553 


1050 




5B+2 


> 


554 


5046 




STC 


5B 


555 


3051 




ADD 


5B+3 


556 


5047 




STC 


58+1 


557 


3053 




ADD 


5B+5 


560 


5052 




STC 


5B+4 






CNAME HATCH 


561 


1000 


#4A 


LDA 




562 


1047 




5B+1 





GAP SEARCH 



53 



COPYFILE* 10 LN=610 



IAP6 



p 


CONT 




55 3 


1560 


BCL i 


56 4 


7774 


7774 CI OR 3 


£65 


4611 


STC 48+6 


566 


0066 


SET i 6 CNEW NAME 


56 7 


3000 


3000 


570 


006 5 


SET i 5 


571 


7677 


-100 


572 


2162 


ADD IV f>l 


573 


,1140 


ADM 


574 


1047 


58+1 


575 


0062 


SET i 2 


576 


7773 


-4 


577 


0044 


SET 4 COLD NAME 


600 


1046 


5B 


601 


6470 


JMP 6W C ADDRESS FIX 


602 


6747 


JMP 4E CDONE, NO MATCH 


603 


1026 


#48 LDA i 6 


604 


1464 


SAE i 4 


605 


6575 


JMP 4B-6 


606 


0222 


XSK i 2 


607 


6603 


JMP 4B 


610 


1020 


LDA i C MATCH 


61 1 


0004 


1 OR 3>BIN OR MS 


612 


1 140 


ADM 


613 


0006 


6 


614 


0045 


SET 5 CSAVE BN POINTER 


615 


0006 


6 


616 


1025 


LDA i 5 


617 


0471 


APO i 


620 


6653 


JMP 46 C ENTRY ALREADY » 


621 


0044 


SET 4 


622 


1047 


58+1 


6 23 


1004 


LDA A 


6 24 


1560 


BCL i 


625 


0777 


777 CQN 


626 


1600 


BSE 


627 


1052 


5B+4 CNEW BN TO INDEX 


630 


1046 


STA 6 


631 


1560 


BCL i 


632 


7000 


7000 


633 


1077 


STA i 17 


634 


1004 


LDA 4 


635 


1560 


BCL i 


636 


7000 


7000 COLD BN TO INDEX 


637 


1077 


STA i 17 


640 


1024 


LDA i 4 C# BLKS 


641 


1066 


STA i 6 


642 


0017 


COM 


643 


1077 


STA i 17 
C RESET BOUNDS 


644 


1000 


LDA 


645 


1053 


5B+5 


64 6 


0451 


APO 


647 


6652 


JMP P+3 


650 


4525 


STC 6M+3 


651 


6653 


JMP 46 



NEW 



ERASE 



54 



COPYFILE* 1 1 LN=7Q0 



IAP6 



p CO NT 










652 4501 




STC 


6S+1 






[ERASE OLD 




653 0044 


#4G 


SET 


4 




654 1047 




5B+1 






655 1020 




LOA 


i 




656 5757 




5757 




657 1044 




STA 


4 




660 1064 




STA 


i 4 




66 1 6305 




J MP 


6A 






CGAP SEARCH 




662 4722 


#6P 


STC 


6R CSRO FWD OR BWD 




663 0041 




SET 


1 




664 0000 











66 5 1004 




LDA 


4 




666 0017 




COM 






6S 7 4740 




STC 


4F ON TO SAVE 




670 0066 




SET 


i 6 




671 3007 




3007 




672 0206 




XSK 


6 




673 6675 




J MP 


p+2 




674 6001 




JMP 


1 CDONE 




675 1020 




LDA 


i 




676 0004 




4 






677 1140 




ADM 






700 0006 




6 






701 6706 




JMP 


4C 




702 6730 




JMP 


4D 




703 6706 




JMP 


4C 




704 6730 




JMP 


4D 




705 6672 




JMP 


6P+10 






CGET BN 






706 1026 


#4C 


LDA 


i 6 




707 1560 




BCL 


i 




710 7000 




7000 




711 1040 




STA 






712 0011 




11 






713 1126 




ADA 


i 6 




714 0451 




APO 






715 0220 




XSK 


i CNO ENTRY 




71 6 0017 




COM 






717 1040 




STA 






720 0012 




12 






721 1520 




SRO 


i 




722 0000 


#6R 


FWD 


OR BWD 




723 6000 




JMP 


CFWD 




724 0052 




SET 


12 




725 0011 




11 






726 4011 




STC 


11 




72 7 6000 




JMP 









CBN 


COMPARE 




730 1000 


#4D 


LDA 






731 0011 




11 CIF BWD THEN COMP OF 


BN+#BLKS 


732 2007 




ADD 


.7 




733 0470 




AZE 


i 




734 0017 




COM 






735 0451 




APO 







55 



COPYFILE, 12 LN=770 



LAP6 



p 
736 
73 7 
740 
741 
742 
7 43 
744 
745 
746 

747 
7 50 
751 
752 
753 
754 
755 
756 
757 
760 
761 
762 
7 63 
764 
765 
766 
767 
770 
771 
772 
773 
774 



775 
776 
777 

1000 
1001 

1002 
1003 
1004 
1005 
1006 
1007 
1010 
101 1 
1012 
1013 
1014 
i 01 s 

1016 
1017 
1020 



CO NT 
6000 
1120 
0000 
0451 
0470 
6000 
0047 
0012 
6670 

0066 
3000 
0065 
7677 
6470 
7026 
0044 
0006 
102 6 
1460 
5757 
6753 
0046 
0004 
0044 
1046 
1024 
1066 
1520 
3567 
6767 
6610 



0067 
7347 
6502 
7002 
6334 

006 7 
0270 
0044 
1047 
6524 
7016 
1000 
1053 
50 52 
2525 
5053 
6561 

7023 
2162 
3047 



JMP £ WRONG DIRECTION 

ADA i 
#4F -N TO MOVE 

APO 

AZE i 

JMP 

SET 7 

12 

JMP 6P+6 
CFIND SLOT* INSERT NAME 
#4E SET i 6 

3000 

SET i 5 

-100 

JMP 6W 

JMP 4K CDON£,NO SLOT* ERASE 

SET 4 CSAVE SLOT 

6 

LDA i 6 

On C* <* 

5757 

JMP 4E+4 

SET 6 CSLOT 

4 

SET 4 

SB 

LDA i 4 

STA i 6 

SRO i 

356 7 

JMP P-4 CNOT DONE 

JMP 4B+5 
CFREE GAP SEARCH 
CANYTHING FWD 
#4H SET i 7 

-7C 

JMP 6S+2 

JMP p+2 CNO FWD GAP 

JMP 5E C TRANSFER FWD 
CTRY BWD GAP FOR FWD ENTRY 

SET i 7 

7F 

SET 4 

58+1 

JMP 6M+2 

JMP 4L CNO FIT ANYWHERE 

LDA 

5B+5 

STC 5B+4 

ADD 6M+3 CKEEP OLD BOUND ON BWD 

STC 5B+5 

JMP 4A 
C ERASE ENTRY 
#4L JMP 4 J 

ADD IV C~l 

ADD 5B+1 



56 



GOPYFILE, 13 LN=1060 



LAP6 



p 


CO NT 




1021 


4004 


STC 4 


1022 


6655 


JMP 4G+2 
CNO INDICATOR 


1023 


001 1 


#4J CLR 


1024 


4173 


STC 1S+1 


1025 


6000 


JMP 
CNO SLOT 


1026 


7023 


#4K JMP 4 J 


1027 


6653 


JMP 4G 
CRDC OLD UNIT 


1030 


0015 


#3A READ TAPE 


1031 


4426 


4176 CINDEX 


1032 


3031 


ADD P-l 


1033 


2114 


ADD 1X+1 C1001 


1034 


5036 


STC P+2 


1035 


0015 


READ TAPE 


1036 


0000 


BN 


1037 


6000 


JMP 
CRCG NEW INDEX 


1040 


0015 


#3B READ TAPE 


1041 


1426 


1 17G CINDEX 


1042 


6000 


JMP 
C INVERT INDEX READ 


1043 


7040 


#1J JMP 33 


1044 


7030 


JMP 3A 


1045 


6260 


JMP 1A+3 
CGAP SEARCH STORE TABLE 


1046 


0453 


#58 NAME POINTER- 1 FOR NEAREST 
BWD ENTRY 


1047 


1500 


BLKS POINTER 


1050 


0453 


NAME POINTER- 1 FOR NEAREST 
FWD ENTRY 


1051 


1500 


BLKS POINTER 


1052 


0000 


FWD GAP 


1053 


0000 


BWD GAP 
CWCG NEW INDEX 


1054 


0435 


#3C KST i 


1055 


6015 


JMP 15 £ FORGET IT 


1056 


1356 


WRITE TAPE 


10 57 


1426 


1 J7G 


1060 


2277 


ADD 6A-6 CTABLE TERMINATOR 


1061 


1077 


STA i 17 
C TABLE REORGANIZE 


1062 


0077 


#1C SET i 17 


1063 


0202 


18-1 CNEW TABLE 


1064 


0074 


SET i 14 


106 5 


1 167 


5F-3 COLD TABLE 



FWD ENTRY OR FARTHEST 



BWD ENTRY OR FARTHEST 



1066 1020 LDA i 

1067 0002 2 

1070 1140 ADM 

1071 0014 14 

1072 1034 LDA i 14 

1073 1460 SAE i 

1074 5757 5757 

1075 7077 JMP P+2 

1076 7122 JMP IE CTABLE END 



57 



CQPYFILE, 14 LN»1H6 



IAP6 



p 


CONT 






1077 


0451 




APO 


1 100 


7066 




JMP 1C+4 CNO ENTRY 


1 101 


1 120 




ADA i 


1 102 


7351 




-7G CMIDPOINT 


1 103 


0451 


#1D 


APO 


1 104 


7066 




JMP 1C+4 C WRONG DIRECTION 


1 105 


1060 




STA i 


1 106 


0000 




NEW DIFF+OLD DI FF 


1 107 


1 120 




ADA i 


1 110 


6777 




-1000 COLD DIFF 


1111 


0471 




APO i 


1112 


7066 




JMP 1C+4 CKEEP OLD DIFF 


1 113 


1000 




LDA CKEEP NEW 


1114 


1 106 




p-6 


1115 


0017 




COM 


1 1 16 


51 10 




STC p-6 


1 117 


0053 




SET 13 


1 120 


0014 




14 


1 121 


7066 




JMP 1C+4 






C TABLE END 


1 122 


1020 


#1E 


LDA i 


1 123 


6777 




-1000 


1 124 


1440 




SAE 


1 125 


1 110 




1D+5 


1 126 


7136 




JMP IF C TRANSFER ENTRY 






CNONE FOUND TO MOVE 


1 127 


1520 




SRO i 


1 130 


W* £* \JfCm 




5252 


1 131 


7151 




JMP 1G [FINISHED 


1 132 


1020 




LDA i CDO BWD 


1 133 


0471 




APO i 


1 134 


5103 




STC ID 


1 135 


7064 




JMP 1C+2 






C TRANSFER ENTRY 


1 136 


5110 


#1F 


STC 1D+5 


1137 


1013 




LDA 13 CNEW BN 


1 140 


1077 




STA i 17 


1 141 


0011 




CLR 


1 142 


0017 




COM 


1 143 


1053 




STA 13 CERASE OLD 


1 144 


1033 




LDA i 13 COLD BN 


1 145 


1077 




STA i 17 


1 146 


1033 




LDA i 13 C-N BLKS 


1147 


1077 




STA i 17 


1 150 


706 4 




JMP 1C+2 






C FINISHED 


1 151 


0017 


#1G 


COM CI 000 


1152 


41 10 




STC 1W+3 CBSE FOR TAPES 


1 153 


1014 




LDA 14 C5757 


1 154 


1077 




STA i 17 CSAVE TERMINATOR 


1155 


1000 




LDA 


1 156 


0017 




17 


1 157 


1 120 




ADA i 


1 160 


7400 




-377 


1161 


0451 




APO 


1 162 


7167 




JMP P+5 CQO 



58 



C0PYFIL£*15 L»\J = 1236 IAP6 

p CO.^T 

1 163 1020 LDA i 

U64 1000 1000 CQl CCO.VSTAiMT 

1165 1140 ADM 

1 166 01 10 1W+3 

i 167 0077 SET i 17 

1170 0202 18-1 CTAPE TRANSFER 

1171 6020 JMP IK 

1172 0040' #5F FIRST TABLE 

7D=300 
7C=430 
7E=0 
6E=2371 
7F=270 
7G=426 
CLAP6 COPY FILE 



59 



CQPY>0 




VALUE 


LINE 


IE 


0073 


71 


IF 


0060 


55 


1R 


0030 


23 


I W 


0110 


107 


IX 


0116 


116 


2A 


0042 


36 


28 


0046 


42 


2M 


0020 


12 


2N 


0036 


31 


2P 


0054 


50 


2X 


0126 


127 


3A 


0502 


517 


3C 


0507 


524 


3D 


0155 


161 


3F 


0166 


172 


3H 


0244 


253 


3K 


0213 


221 


3L 


0237 


245 


3M 


0344 


356 


3N 


0253 


263 


3P 


0266 


276 


3Q 


0362 


374 


3R 


0303 


314 


3T 


0326 


337 


3V 


0370 


403 


3W 


0430 


444 


4A 


0143 


145 


6A 


2001 


677 


6B 


0441 


456 


6C 


0455 


472 


6E 


0471 


506 


6F 


0201 


206 


6G 


0740 


640 


7D 


0300 


700 


7£ 


0000 


701 


82 


0776 


676 



IAP6 



60 



COPY, 1 LN=1 LAP6 

p CONT 

CLAP6 COPY 
CBLOCKS 336-337 
CQO-1 

015 

15 0701 RCG 7E 

16 7300 7I7D 

17 6141 JMP 4A-2 

CTAPE TRANSFERS 
CREAD, WRITE* CHECK 

20 0042 #2M SET 2 

21 0060 IF C-#BL0CKS 

CROC 

22 0043 SET 3 

23 0002 2 C-# LEFT 

24 0064 SET i 4 

25 0030 1R 

26 61 10 JMP 1W CFIX QN 

27 0720 RDC i 

30 0000 #1R BN 

31 6116 JMP IX CUP BN* AND CHECK 2 

32 6035 JMP P+3 CRDC ALL DONE 

33 0450 AZE 

34 6027 JMP 1R-1 

35 1020 LDA i CRDC DONE 7 BLOCKS 

36 7762 #2N -15 CMTB u 

37 6126 JMP 2X EMOTION STOP 

CWRITE 

40 0042 SET 2 

41 0003 3 £-# LEFT 

42 0064 #2A SET i 4 



43 


0046 




2B 




44 


6110 




JMP 


1W 


45 


0726 




WRI 


i 


46 


0000 


#2B 


BN 




47 


61 16 




JMP 


IX 


50 


6057 




JMP 


1F-1 CWRI ALL DO 


51 


0450 




AZE 




52 


6045 




JMP 


2B-1 


53 


1020 




LDA 


i CWRI DONE 7 8U 


54 


7753 


#2P 


-24 


CMTB u 


55 


6126 




JMP 


2X CMOTION CHECK 


56 


6022 




JMP 


2M+2 






C CHECK 




57 


00 62 




SET 


i 2 


60 


0000 


#1F 


-N BLOCKS 


61 


0450 




CHECK TAPE 


62 


0000 




BN 




63 


0450 




AZE 




64 


6073 




JMP 


IE CERROR 


65 


2062 




ADD 


P-3 


66 


2135 




ADD 


2X+7 CI 


67 


4062 




STC 


P-5 


70 


0222 




XSK 


i 2 


71 


6061 




JMP 


1F+1 


72 


6015 




JMP 


15 






CCHECK FAILURE 



61 



COPY* 2 LN=71 



LAP6 



p 


CONT 






73 


1000 


#1E 


LDA 


74 


0062 




1F+2 


75 


4046 




STC 2B 


76 


2002 




ADD 2 


77 


1040 




STA 


100 


0060 




If 


101 


2030 




ADD 1R 


102 


04 70 




AZE i 


103 


0017 




COM CBN IS ZERO 


104 


1560 




BCL i 


105 


7000 




7000 


106 


4030 




STC 1R 


107 


6022 




JMP 2M+2 






CFIX QN 


110 


0011 


#1W 


CLR 


11 1 


1104 




ADA 4 


112 


1620 




BSE i 


1 13 


1000 




1000 


114 


1044 




STA 4 


115 


6000 




JMP 






CFIX BM AND CHK 2 


116 


1020 


#1X 


LDA i 


117 


1001 




1001 


120 


1204 




LAM 4 


121 


1560 




BCL i 


122 


0777 




777 


123 


0222 




XSK i 2 


124 


0220 




XSK i CNOT DONE 


125 


6000 




JMP CDONE, P+l 






C MOTION CHECK 


126 


0041 


#2X 


SET 1 


127 


0000 







130 


1400 




SHD 


131 


4134 




4} p+3 


132 


6000 




JMP CSAME UNIT 


133 


4134 




STC P+l 


134 


0000 




MOV/E TOWARD BLK 


135 


0001 




1 C CONSTANT 


136 


0453 




IBZ 


137 


6136 




JMP P-l 


140 


6001 




JMP 1 






C DISPLAY QUESTIONS 


141 


0700 




RDC 7E 


142 


1337 




1 I7D+37 


143 


0073 


#4A 


SET i 13 


144 


0513 




3C+4 CSAVE PARAMETERS 


145 


0066 




SET i 6 


146 


0501 




3A-1 CPARAMETER LENGTH 


147 


0062 




SET i 2 


150 


0506 




3C-1 CDIS CODES 






CKBD PRESET 


151 


1026 




LDA i 6 


152 


4003 




STC 3 C COUNTER 


153 


1022 




LDA I 2 


154 


4005 




STC 5 CSAVE CODES 






C DISPLAY PRESET 



62 



C0PY>3 LN»161 



LAP6 



p 


CO NT 






155 


0064 


#30 


SET i 4 


156 


7771 




-6 U 1 OF LINES 


157 


1 020 




LDA i 


160 


0101 




101 CY COOR 


161 


4202 




STG 6F+1 


16ft 


0072 




SET i 12 


163 


4436 




6B-3+4000 


164 


0061 




SET i 1 


165 


0100 




100 CX COOR . 


166 


1332 


#3F 


LDH i 12 


167 


1420 




SHD i 


170 


7700 




7700 


171 


6166 




JMP 3F 


172 


1420 




SHD i 


173 


1200 




1200 


174 


6244 




JMP 3H 






C DISPLAY 


175 


0241 




ROL t 


176 


1120 




ADA i 


177 


2001 




6A C2001 CCONSTANT 


200 


4011 




STC 11 


201 


1020 


#6F 


LDA i 


202 


0000 




Y COOR 


203 


1751 




DSC 1 1 


204 


1771 




DSC ill 


205 


1020 




LDA i 


206 


0004 




4 


207 


2001 




ADD 1 


210 


4001 




STC 1 






C KEYBOARD 


211 


0415 




KST 


212 


6166 




JMP 3F 


213 


0535 


#3K 


KBD i 


214 


1420 




SHD i 


215 


1200 




1200 


216 


6344 




JMP 3M CEOL 


217 


1420 




SHD i 


220 


1300 




1300 


221 


6303 




JMP 3R CDELETE 


£* <«t <*m 


1420 




SHD i 


223 


2300 




2300 


224 


6015 




JMP 15 CCASE 


225 


0470 




AZE i 


226 


6235 




JMP 3L-2 


227 


1 1 2.0 




ADA I ' 


230 


7770 




-7 


231 


0471 




APO i 


232 


6166 




JMP 3F CNOT OCTAL DIGIT 


233 


1120 




ADA i 


234 


0007 




7 


23 5 


0223 




XSK i 3 


236 


6242 




JMP 3L+3 


237 


0063 


#3L 


SET i 3 


240 


7776 




-1 CTOO MANY CCONSTANT 


241 


6166 




JMP 3F 


242 


1365 




STH i 5 CSAVE 



63 



OPYj 


.4 Lf> 


3=251 


? 


CO NT 






243 


6166 




JMP 3F 






CEOL-LOWER Y 


2 44 


1020 


#3H 


LDA i 


245 


7737 




-40 


246 


1 140 




ADM 


247 


0202 




6F+1 


250 


0224 




XSK i 4 


251 


6164 




JMP 3F-2 


252 


6155 




JMP 30 






CCHECK BN FOR 1ST EN 


253 


1002 


#3N 


LDA 2 


254 


4005 




STC 5 C RESET 5 


i— +j «D 


4266 




STC 3P 


256 


1325 




LDH i 5 


257 


1420 




SHD i 


260 


7700 




7700 


261 


6265 




JMP 3P-1 


262 


2266 




ADD 3P 


263 


0243 




ROL 3 


264 


6255 




JMP 3N+2 


265 


1020 




LDA i 


266 


0000 


#3P 


BN 


267 


0303 




ROR 3 


270 


1040 




STA 


271 


0266 




3P 


272 


04^1, 




APO 


273 


6303 




JMP 3R C ILLEGAL 


274 


1120 




ADA i 


275 


6777 




-1000 £ CONSTANT 


276 


0471 




APO i 


277 


6303 




JMP 3R C ILLEGAL 


300 


1000 




LDA 


301 


0266 




3P 


302 


6362 




JMP 3Q £ ENTRY OK 






CDELETE-ILLEGAL 


303 


1000 


#3R 


LDA 


304 


0005 




5 


305 


1440 




SAE 


306 


0507 




3C 


307 


631 1 




JMP 3R+6 


310 


6166 




JMP 3F CNOTHING 


31 1 


1442 




SAE 2 


312 


632 5 




JMP 3T-1 


313 


1000 




LDA 


314 


0006 




6 


315 


2240 




ADD 3L+1 t-1 


316 


400 6 




STC 6 


317 


2002 




ADD 2 


320 


2240 




ADD 3L+1 C-l 


321 


4002 




STC 2 


322 


2013 




ADD 13 


OwO 


2240 




ADD 3L+1 C-1 


324 


4013 




STC 13 


325 


1002 




LDA 2 


326 


4005 


#3T 


STC 5 


327 


1020 




LDA i 



LAP6 



TO DELETE 



64 



COPY, 5 LN=341 



LAP6 



p 


CO NT 






330 


0013 




13 


331 


1365 




STK i 5 


332 


1020 




LDA i 


333 


0077 




77 


334 


1365 




STK i 5 


335 


1365 




STH i 5 


336 


1365 




STK i 5 


337 


1006 




LDA 6 


340 


4003 




STC 3 C RESET COVNTER 


341 


1002 




LDA 2 


342 


4005 




STC 5 CRESET ADDRESS 


343 


6166 




JMP 3F 






CKEYBOARD EOL 


344 


1006 


#3M 


LDA 6 


345 


1400 




SHD 


346 


4003 




4003 


347 


6166 




JMP 3F CNOTHING TYPED YET 


350 


1460 




SAE i 


351 


7775 




-2 


352 


62 53 




JMP 3N C CHECK BN 


353 


1305 




LDH 5 CCHK UNIT 


354 


1560 




BCL i 


355 


0005 




5 CUNITS 0-1-4-5 


356 


0450 




AZE 


357 


6303 




JMP 3R C ILLEGAL 


360 


1305 




LDH 5 


361 


0243 




ROL 3 


362 


1073 


#3Q 


STA i 13 C ENTRY OK 


363 


1000 




LDA 


364 


0006 




6 


365 


1460 




SAE i 


366 


0506 




3A+4 


367 


6151 




JMP 3D-4 CDO NEXT SET 






CTAPE PRESET 


370 


0073 


#3V 


SET i 13 


371 


0513 




3C+4 


372 


1033 




LDA i 13 C# BLKS 


373 


0470 




AZE i 


374 


6015 




JMP 15 CO BLKS 


375 


0017 




COM 


376 


4060 




STC IF 


377 


1013 




LDA 13 


400 


4431 




STC 3W+1 


401 


6430 




JMP 3'W" 


402 


1013 




LDA 13 CRDC BN 


403 


4030 




STC 1R 


404 


1033 




LDA I 13 CRDC UNIT 


405 


1140 




ADM 


406 


0027 




1R-1 CRDC i a 


407 


2036 




ADD 2N C-15 


410 


4036 




STC 2N CMTB a 


411 


6430 




JMP 3W 


412 


1013 




LDA 13 CWRI BN 


413 


1040 




STA 


414 


0046 




2B 


415 


4062 




STC 1F+2 CCHK BN 



65 



COPY* 6 LN=431 



LAP6 



p 


CO NT 








416 


1033 




LDA i 


13 CWRI UN 


All 


1 140 




ADM 




420 


0045 




gB- 1 


CWRI i « 


421 


2135 




ADD 2X+7 CI 


422 


'1040 




STA 




423 


0061 




1F+1 


CCHK i u 


424 


1 140 




ADM 




42 5 


0054 




2P 


CMTB u 


426 


4134 




STC 2X+6 EMOTION 


427 


6020 




JMP 2M C TRANSFER 






C CHECK BOUNDS 


430 


1020 


#3W 


LDA i 




431 


0000 




NUM BLKS 


432 


1133 




ADA i 


. 13 CBN 


433 


2275 




ADD 3P+7 C-1000 


434 


0451 




APO 




43 5 


6000 




JMP COK 


43 6 


6015 




JMP 15 COUT OF 






C DISPLAY 


TABLE 


437 


2642 




2642 


CCOPY 


440 


4354 




4354 




441 


1213 


#68 


1213 




442 


7777 




7777 




443 


7777 




7777 




AAA 


1425 




1425 


CBLOCKS 


445 


3742 




3742 




446 


2636 




2636 




447 


4612 




4612 




450 


3145 




3145 


CFROM 


45 1 


4240 




4240 




452 


1425 




1425 


CBLOCK 


453 


3742 




3742 




454 


2636 




2636 




455 


1413 


#6C 


1413 




456 


7777 




7777 




457 


7712 




7712 




46 


5041 




5041 


CUNIT 


46 1 


3447 




3447 




462 


1413 




1413 




463 


7777 




7777 




46 4 


7763 




7763 


C, 


46 5 


1247 




1247 


CTO 


46 6 


4214 




4214 




467 


2537 




2537 


C SLOCK 


470 


4226 




422 6 




471 


3614 


#6E 


3614 




472 


1377 




1377 




473 


7777 




7777 




474 


12 50 




1250 


CUNIT 


475 


4134 




4134 




476 


4714 




4714 




477 


1377 




1377 




500 


7777 




7777 




501 


1200 




1200 




502 


7772 


#3A 


-5 




503 


7773 




-4 





BOUNDS 



66 



COPY* 7 LN=521 



LAP6 



P CO NT 

504 7775 -2 

505 77 73 -4 

506 7775 -2 

507 0441 #3C 6B 



510 


0455 


6C 




51 1 


0462 


6C+5 




512 


4471 


4I6E 




513 


4476 


4I6E+5 




514 


1640 


NUMBER BLOCKS 




515 


1240 


PROM BLOCK 




516 


0000 


UNIT 




517 


0000 


TO BLOCK 




520 


0000 


UNIT 
3642 
C MNEMONICS 




6 42 


4746 


f TSi 




643 


4046 


f MS* 




644 


4627 


TSD* 




645 


3653 


tKXi 




646 


3745 


tLR* 




647 


4545 


tRRt 




650 


4546 


tRSi 




651 


3746 


tLSi 




6 52 


43 46 


tPSi 




653 


4542 


TROi 




654 


0000 


CUNDEFINED 




655 


2537 










TBL4 t LOWER MEMORY 


SANK 


656 


2550 










tBU* CUPPER MEMORY 


BANK 


657 


4340 


f PM* 




66 


4740 










TTM* CMAG TAPE TWO = 


= 740 


6S 1 


2437 


t AH 




6 62 


2446 


TAS* 




66 3 


2424 


t AA4 




66 4 


4024 


t MA* 




66 5 


4037 


t ML * 




666 


3740 


tLMi 





67 



COPY, 10 LN=565 LAP6 



P CONT 




667 3337 






tHLi 


670 3346 






THS* 


»671 2746 






f DS* 


672 3046 






tES* 


673 4246 






tos* 


674 '3725 






tLB* 


675 3025 






t EBi 


676 4225 






tOB* 


677 0000 





700 2627 






tGD* 


701 2724 






»DA* 


702 2646 






»CS* 


703 4335 






»PJi 




C SUBSTITUTE MNEMONICS 


704 4733 






tTHi 


705 2455 






t AZ* 


706 3430 






tIE* 


707 4526 






tRCi 


710 4524 






TRA* 


711 2445 






t ARi 


712 4341 






tPN* 


713 4026 






TMC* 


714 4736 






tTK* 


715 4646 






TSSA 


716 4143 






tNPi 


717 3024 






tEA* 


720 4224 






tOAi 


721 3037 






t EL A 


722 5534 






tZIi 



68 



COPY* 11 LN=622 LAP6 



p CO NT 

723 3142 

724 5555 

725 2645 

726 3245 

727 3045 

730 2540 

731 2652 

732 3252 

733 3452 

734 3626 

735 2736 

736 5245 

737 5237 



tFO* 
tZZi 
tCRi 
tGRi 
t ERA 
tBM* 
tCW* 
tGW* 
tlWA 
tKC* 
TDK* 
tWRi 







t WLi 






C COOES 


740 


2000 


#6G ADD 


741 


4000 


STC 


742 


6000 


JMP 


743 


0000 


HLT 


74 4 


0005 


ZTA 


745 


0010 


EN I 


746 


0011 


CLR 


747 


0014 


ATR 


750 


0015 


RTA 


751 


0016 


NOP 


7 52 


0017 


COM 


753 


0415 


KST 


754 


0440 


SMS 


755 


0446 


PIN 


756 


0450 


AZE 


757 


0451 


APO 


760 


0452 


LZE 


76 1 


0453 


IBZ 


762 


0454 


OVF 


763 


0455 


ZZZ 


76 4 


0700 


RDC 


76 5 


0701 


RCG 


76 6 


0702 


RDE 


76 7 


0703 


MTB 


770 


0704 


WRC 


771 


0705 


WCG 


772 


0706 


WRI 


773 


0707 


CHK 


774 


0515 


KBD 



69 



COPY, 12 LN=675 IAP6 

p CONT 

775 0516 RSW 

776 0517 #8Z LSW 

6A=2001 CGRID PATTERNS 

7D=300 

7E=0 

C MNEMONICS STAY WITH COPY 
CLAP6 COPY 



70 



CONVERT* 



LAP6 



value: 

1A 1045 
1071 
1077 
1 122 
1 125 
1236 
1262 
1105 
1220 
1251 
0317 
1244 
1257 
0457 
1154 
1167 
1322 
0544 
1304 
1234 
1002 
1067 
0033 
0046 
0065 

01 17 
0126 
0251 
0743 
0164 
0123 
0152 
0134 
0713 
0724 

02 72 
0303 
0307 
0663 
01 15 
0137 
0232 
0511 
0200 
0022 
0314 

03 51 
0372 
0403 
0416 
0454 
0464 
0475 
0512 
0540 
0346 
0203 
0207 
0674 



IB 
1C 
ID 

IS 
IF 
1G 
1H 
U 
IK 
1L 
1M 
IN 
IP 
1Q 
1R 
IS 
IT 
1U 
IX 
1Y 
\Z 
2A 
28 
2C 
2D 
2E 
2F 
2G 
2K 

2K 

2M 
2N 
2P 
2Q 
2R 
2S 
2T 
2U 
2V 
2W 
2X 
2Y 
22 
3A 
33 
3C 
3D 
3£ 
3F 
3G 
3H 
3J 
3K 
3L 
4A 
4B 
4C 



LINE 

1112 

1 137 

1 146 

1 172 

1 176 

1314 

1344 

1 154 

1274 

1331 

344 

1323 

1340 

512 

1226 

1242 

1405 

603 

1367 

1311 

1046 

1134 

25 

41 

61 

115 

126 

273 

1013 

172 

122 

156 

135 

762 

773 

314 

332 
731 
112 
141 
251 
547 
206 
13 
341 
377 
421 
433 
447 
507 
520 
532 
550 
576 
373 
212 
217 
742 



VALUE 
4D 0653 
0230 
0212 
0215 
0217 
0222 
0225 
0247 
0644 
0243 
0567 
0611 
2642 
2000 
2700 
2400 
2432 
2352 
2740 
2371 
0350 
0000 
0300 
0000 
2776 
1344 
1335 
0771 
0557 
0563 



4E 
4F 
4G 
4H 
4J 
4K 
4L 
4N 
4P 
4Q 
4R 
6A 
6B 
6C 
6D 
6E 
6F 
6G 
6H 
7A 
78 
7D 
7E 
8Z 
9A 
98 
9J 
9M 
9N 



LINE 

720 

246 

223 

227 

232 

236 

242 

270 

710 

263 

632 

655 

1461 

1624 

1517 

1625 

1626 

1627 

1561 

1630 

1620 

1621 

1622 

1623 

1617 

1432 

1422 

1631 

617 

624 



71 



CONVERT*! LN=1 



IAP6 



p 


CO NT 










CLAP6 CONVERT 






[BLOCKS 330-332 






[ QUARTERS 0-2 






[PASS II 








Q15 


15 


0701 




RCG 7E 


16 


1310 




1 I7D+10 C DISPLAY 


17 


0016 




NOP 


20 


0720 




RDC i 7E 


21 


2347 




2I7D+47 CBIN TO Q2 


22 


6314 


#2Z 


JMP 3A 


23 


0435 




KST i 


24 


6653 




JMP 4D [RETURN 


2S 


0044 




SET 4 


26 


0003 




3 


27 


6033 




JMP 2A 


30 


6022 




JMP 2Z 


31 


6663 




JMP 2T 


32 


6022 




JMP 2Z 






CLIiME DECODE 


WW 


0057 


#2A 


SET 17 


34 


0000 







33 


0011 




CLR 


36 


4511 




STC 2X 


37 


4200 




STC 2Y 


40 


0066 




SET i 6 


41 


0247 




4L 


42 


0072 




SET i 12 


43 


7774 




-3 [CONSTANT 


AA 


0073 




SET i 13 


45 


6135 




JMP 2M+1 






[CHARACTER CHECK 


46 


1323 


#28 


LDH i 3 


47 


0070 




SET i 10 


50 


4243 




4P+4000 


51 


1430 




SHD i 10 


52 


6126 




JMP 2E C COMMENT 


53 


1430 




SHD i 10 


54 


6203 




JMP 4A [B 


55 


1430 




SHD i 10 


56 


6132 




JMP 2E+4 C- 


57 


1430 




SHD i 10 


60 


6137 




JMP 2V C t 


61 


1430 




SHD i 10 


62 


6207 




JMP 4B C77 


63 


1430 




SHD i 10 


64 


6123 




JMP 2 J [a 






C CHECK NUMBER 


65 


6404 


#2C 


JMP 30+ 1 


66 


6251 




JMP 2F * 


67 


6416 




JMP 3E 


70 


6164 




JMP 2H 


71 


1620 




BSE i 


72 


0300 




ROR 


73 


4075 




STC P+2 


74 


1011 




LDA 11 



72 



CONVERT* 2 LN = 71 



LAP6 



p 


CONT 






75 


04 50 




ROTATE N 


16 


0451 




APO 


77 


6115 




JMP 2U 






CUNDEFINED 


100 


1000 




LDA 


101 


0200 




2Y 


102 


0303 




ROR 3 


103 


1361 




STH i 1 


104 


1303 




LDH 3 


105 


1361 




STH i I 


106 


1000 




LDA 


107 


0317 




1L 


1 10 


1061 




STA i 1 


1 11 


1020 




LDA i 


112 


7777 




-0 


113 


1061 




STA i I 


114 


6475 




JMP 3H 


115 


1010 


#2U 


LDA 10 


116 


6013 




JMP 13 






C SPECIAL CHARACTER 


117 


1120 


#2D 


ADA i 


120 


6243 




2 W+ 6000+1 1 


121 


4122 




STC p+1 


122 


0140 


Ca 


JUMP TO DISPATCHER 


123 


1020 


#2 J 


LDA i 


124 


0010 




10 


125 


6013 




JMP 13 






C COMMENT* EQUALITY 


126 


1324 


#2E 


LDH i 4 


127 


1460 




SAE i 


130 


0066 




66 


131 


023T 




XSK i 17 


132 


6464 




JMP 38 


133 


6017 




JMP 17 






CBETA 13 RETURN 


134 


0017 


#2M 


COM 


135 


2511 




ADD 2X 


136 


6036 




JMP 2A+3 






C TEXT 


137 


6557 


#2V 


■■ JMP 9M 


140 


7000 




JMP 1000 CLIST 


141 


6512 




JMP 3 J CTEXT COUNT 


142 


6147 




JMP P+5 C* 


143 


6152 




JMP 2K CEOL 


144 


6160 




JMP 2K+6 £77 


145 


6663 




JMP 2T C2 CHARS 


146 


6141 




JMP 2V+2 






Ci = 


71> END TEXT 


147 


0233 




XSK i 13 


150 


6132 




JMP 2E+4 CNO ASSIGI 


151 


6131 




JMP 2E+3 






CEOL IN TEXT 


152 


0072 


#2K 


SET i 12 


153 


6142 




JMP 2V+3 


154 


6314 




JMP 3A C CHECK MS 



73 



CONVERT* 3 LN = 161 



IAP6 



p 


CO NT 








155 


0233 




KSK 


i 13 


156 


6S23 




JMP 


3J+11 


157 


6145 




JMP 


2V + 6 C ASSIGN 






C77 


IN TEXT 


160 


0233 




XSK 


i 13 


161 


6207 




JMP 


4B CNO ASSIGN 


162 


6663 




JMP 


2T 


163 


6207 




JMP 


4B 






CNUMBER, 


► NOT TAG 


164 


1303 


#2H 


LDH 


3 


165 


1420 




SHD 


i 


166 


1400 




1400 


167 


6372 




JMP 


3C 


170 


6404 




JMP 


3D+1 


171 


6173 




JMP 


P+2 


172 


6167 




JMP 


p-3 


173 


1020 




LDA 


i 


174 


3777 




-4000 C CONSTANT 


175 


1140 




ADM 




176 


0003 




3 




177 


1020 




LDA 


i 


200 


0000 


#2Y 


NUMBER 


201 


0303 




ROR 


3 


202 


6013 


Cs 


JMP 


13 


203 


6351 


#4A 


JMP 


3B 


204 


6557 




JMP 


9M 


205 


6017 




JMP 


17 CLIST 


206 


6567 




JMP 


4Q C CONVERT 






C77« 


-PREPARE SAVE BIN 


207 


6557 


#4B 


"JMP 


9M 


210 


7400 




JMP 


1400 CLIST 


211 


6611 


Ci 


JMP 


4R C CONVERT 


212 


1020 


#4F 


LDA 


i 


213 


0020 




20 


C CONSTANT 


214 


6013 


Cp 


JMP 


13 


215 


2457 


#4G 


ADD 


IP 


216 


6013 


#4H 


JMP 


13 


217 


0073 


SET 


i 13 


220 


6134 




JMP 


2M 


221 


6046 


Ci 


JMP 


2B 


222 


2511 


#4J 


ADD 


2X 


223 


0303 




ROR 


3 


224 


6036 




JMP 


2A+3 






CTAG 




225 


6372 


#4K 


JMP 


3C 


226 


1323 




LDH 


i 3 


227 


6046 




JMP 


2B 






CEOL 




230 


0237 


#4E 


XSK 


I 17 


231 


6017 




JMP 


17 






C DISPATCHER 



74 



CONVERT* 4 


LN = 


= 251 


? 


COMT 






232 


6230 


#2W 


J MP 4E 


233 


6046 




JMP 2B CDEL 


234 


6046 




JMP 23 


235 


6212 




JMP AF 


23 6 


6215 




JMP 4G 


237 


6217 




J MP 4K 


240 


6044 




JMP 23-2 


241 


6222 




JMP. 4J 


242 


6225 




J MP 4K 






t CHARACTER TABLE 


243 


0022 


UA? 


0022 


244 


6665 




6665 


245 


6170 




6170 


246 


7762 




7762 






CSAVE LETTERS 


247 


0000 


jML 





250 


0000 











C CHECK LETTER 


251 


1 120 


#2F 


ADA x 


252 


7765 




-12 


253 


0451 




APO 


254 


6117 




JMP 2D 


255 


1303 




LDK 3 


256 


1366 




STH i 6 


257 


0232 




XSK i 12 


2 60 


6046 




JMP 2B 


261 


0246 




ROL 6 


262 


2247 




ADD 4L 


263 


0066 




SET i 6 


264 


7700 




6A- 6G- 1 


2 65 


0072 




SET i 12 


266 


2641 




6A-1 


267 


0226 




XSK i 6 


270 


6272 




JMP 2Q 


271 


6040 




JMP 2B-6 


2 72 


1472 


#2Q 


SAE i 12 


273 


6267 




JMP 2Q-3 


274 


1020 




LDA x 


275 


0077 




6G-6A+1 


276 


2006 




ADD 6 


277 


1 120 




ADA i 


300 


7740 




6A-6C-1 


301 


0471 




APO I 


302 


6307 




JMP 2S 


303 


1120 


#2R 


ADA i 


304 


0037 




6C-6A+1 


305 


0245 




ROL 5 


306 


6013 




JMP 13 






C SUBSTITUTE 


307 


1120 


#2S 


ADA i 


310 


2737 




6G-1 


311 


4006 




STC 6 


312 


1006 




LDA 6 


313 


6013 




JMP 13 






CCONVERT SUBROUTINES 






CMS 


ADDRESS CHECK 



LAP6 



75 



OiWEirr^s 


LN=3 41 


p 


COiMT 




314 


1020 


#3A LDA i 


315 


0001 


1 C CONSTANT 


316 


1160 


ADM i 


3 1 7 


0000 


#1L 


320 


1000 


LDA 


321 


0003 


3 


322 


1560 


BCL i 


323 


4000 


4000 


324 


1 1 20 


ADA i 


325 


4400 


-3377 


326 


0451 


APO 


327 


6000 


JMP 


330 


0720 


RDC i 7B 


331 


6350 


6J7A 


332 


2331 


ADD P-l 


333 


1120 


ADA i 


334 


1001 


1001 


335 


0451 


APO 


336 


4340 


STC P+2 


337 


0700 


RDC 7B 


340 


7777 


71777 


341 


2331 


ADD P-10 


342 


2315 


ADD 3A+1 


343 


4331 


STC P-l 2 


3 44 


2003 


ADD 3 


345 


1120 


ADA i 


346 


7377 


#3L -400 


347 


4003 


STC 3 


3 50 


6000 


JMP 


351 


0050 


#3B SET 10 


352 


0000 





353 


6372 


JMP 3C 


354 


6401 


JMP 3D- 2 


355 


6362 


JMP P+5 


356 


6372 


JMP 3C 


357 


6404 


JMP 30+ 1 


3 60 


6362 


JMP P+2 


361 


6356 


JMP P-3 


362 


1000 


LDA 


363 


0200 


2Y 


364 


0303 


ROR 3 


365 


1560 


8CL i 


3 66 


4000 


4000 


367 


4457 


STC IP 


370 


6464 


JMP 36 


371 


6010 


JMP 10 
£ SPACE AVOID 


3 72 


0051 


#3C SET 11 


373 


0000 





374 


1323 


LDH i 3 


375 


1420 


SHD i 


376 


1400 


1400 


377 


63 74 


JMP 3C+2 


400 


6011 


JMP 11 
CNUMBER CHECK 



LAP6 



76 



CONVERT* 6 


LN: 


= 431 




p 


CO NT 








401 


0011 




CLR 




402 


4200 




STC 


2Y 


403 


1303 


#3D 


LDH 


3 


404 


1120 




ADA 


i 


40 S 


7766 




-11 




406 


0471 




APO 


i 


407 


6000 




J MP 





410 


1303 




LDH 


3 


411 


2200 




ADD 


2Y 


412 


0243 




ROL 


3 


413 


4200 




STC 


2Y 


414 


0220 




XSK 


i 


415 


6000 




JMP 









C SYMBOL 


CHECK 


416 


1323 


#3E 


LDH 


i 3 


417 


1 120 




ADA 


i 


420 


7754 




-23 




421 


0451 




APO 




422 


6000 




JMP 





423 


1120 




ADA 


i 


42 4 


7745 




-32 




425 


0471 




APO 


i 


426 


6000 




JMP 





427 


1000 




LDA 




430 


0200 




2Y 




431 


0470 




AZE 


i 


432 


6000 




JMP 





433 


0303 




ROR 


3 


434 


1260 




MUL 


i 


435 


0032 




32 




43 6 


1120 




ADA 


i 


437 


1722 




6B- 32-24 


440 


4010 




STC 


10 


441 


1303 




LDH 


3 


442 


2010 




ADD 


10 


443 


4010 




STC 


10 






CFIND MARK REGISTER 


444 


1303 




LDH 


3 


445 


1 120 




ADA 


i 


446 


2354 




6D-24 


447 


4011 




STC 


11 


450 


2200 




ADD 


2Y 


451 


0303 




ROR 


3 


452 


0220 




XSK 


i 


453 


6000 


CUP 


JMP 
p 





454 


1020 


#3F 


LDA 


i 


455 


0001 




1 




456 


1160 




ADM 


i 


457 


0020 


fflP 


20 




460 


1560 




BCL 


i 


461 


4000 




4000 


462 


4457 




STC 


IP 


463 


6000 




JMP 









CFIND EOL 


464 


0051 


#36 


SET 


11 



LAP6 



77 



QQWEHT* 7 


LW 


= 521 Li 


V 


CONT 






465 


0000 







466 


1020 




LDA i 


467 


0012 




12 


470 


1403 




SHD 3 


471 


6011 




JMP 11 


472 


1423 




SHD i 3 


473 


6011 




JMP 1 1 


474 


6472 




JMP *-2 






£ ERROR TABLE ADDRESS CHE 


475 


1020 


#3H 


LDA i 


476 


0004 




4 


477 


2001 




ADD 1 


500 


4502 




STC P+2 


501 


1440 




SAE 


502 


0452 




NEXT SLOT STILL ZERC 


503 


0451 




APO 


SO 4 


6000 




JMP 


505 


2001 




ADD 1 


506 


2043 




ADD 2B-3 C-3 


507 


4001 




STC 1 


510 


6000 




JMP 






CTEXT COUNT 


51 1 


0000 


#2X 


CFOR ASSIGN 


512 


0052 


#3 J 


SET 12 


513 


0000 







514 


0073 




SET i 13 


515 


7775 




-2 C CONSTANT 


516 


0074 




SET i 14 


517 


4510 




2X- 1+4000 


520 


1020 




LDA i 


521 


1414 




1414 


522 


4511 




STC 2X 


523 


1323 




LDH i 3 


524 


1420 




SHD i 


525 


7100 




7100 £* 


526 


6543 




JMP 3K+3 


527 


1420 




SHD i 


530 


7700 




7700 


531 


6541 




JMP 3K+1 


^ w £* 


1374 




STH i 14 


533 


1420 




SHD i 


534 


1200 




1200 


535 


6542 




JMP 3K+2 


536 


0233 




XSK i 13 


537 


6523 




JMP 3J+11 


540 


0232 


#3K 


XSK i 12 


541 


0232 




XSK i 12 


542 


0232 




XSK i 12 


543 


6012 




JMP 12 






CPASS PRESET 


544 


1020 


#1T 


LDA i 


545 


6350 




61 7A 


S46 


4331 




STC 1L+12 


547 


4317 




STC 1L 


550 


2213 




ADD 4F>1 


551 


4457 




STC IP 



LAP6 



78 



CONVERT* 1C 


) LN=6il 


LAP6 


p 


CO NT 








552 


0063 




SET 


i 3 


553 


7401 




7401 




554 


0062 




SET 


i 2 


555 


1017 




1017 


556 


6000 




JMP 









C CHECK LIST 


557 


1520 


09M 


SRO 


i 


560 


7777 




7777 


56 1 


0220 




XSK 


i [CONVERT 


56 2 


6000 




JMP 


CLIST 






CLIST-PASS II 


56 3 


6544 


#9N 


JMP 


IT CPASS PRESET 


564 


0720 




RDC 


i 7E 


565 


2327 




2I7D+27 


566 


7001 




JMP 


1001 






CDO 


NOT 


CHANGE ANYTHING BEFORE 






CHANGING LIST 






CORIGIN- 


• CONVERT 


56 7 


1000 


#4Q 


LDA 




570 


0457 




IP 




571 


1560 




BCL 


i 


572 


7000 




7000 


573 


2707 




ADD 


4C+13 C777 


574 


4002 




STC 


2 


575 


2457 




ADD 


IP 


576 


0350 




SCR 


10 


577 


1560 




3CL 


1 


600 


0001 




1 




601 


2721 




ADD 


2P-3 


602 


1400 




SHD 




603 


4746 




2G+3+4000 


604 


66 10 




JMP 


p+4 


605 


4724 




STC 


2P 


606 


6743 




JIAP 


2G 


607 


6713 




JMP 


2N 


610 


6017 




JMP 


17 






C77- 


-CONVERT* PREPARE FOR S3 


61 1 


1000 


#4R 


LDA 




612 


0674 




4C 




613 


0470 




A2E 


i 


614 


6653 




JMP 


4D 


61 5 


0071 




SET 


i 11 


616 


7764 




-13 




617 


0241 




80 L 


1 


620 


0451 




APO 




621 


6624 




JMP 


P+3 


622 


0231 




XSK 


i 1 I 


623 


6617 




JMP 


P-4 


624 


0070 




SET 


i 10 


625 


0000 









62 6 


1500 




SRO 




627 


0674 




4C 




630 


6634 




JMP 


P+4 


631 


0231 




XSK 


i 1 1 


632 


0230 




XSK 


I 10 


6 33 


6626 




JMP 


p-5 



THIS POINT WITHOUT ALSO 



79 



CONVERT* 1 I LM=700 



LAP6 



p 


CO NT 






634 


1000 




LDA 


63 5 


0010 




10 


63 6 


0303 




ROR 3 


637 


4012 




STC 12 


6 40 


6743 




JMP 2G £ WRITE BINARY 


641 


0724 




WRC i 7E 


642 


0330 




7D+30 


643 


1020 




LDA i 


6 44 


0000 


#4N 


LAST'MEM 


645 


5000 




STC 1000 


646 


2001 




ADD 1 


647 


500 i 




STC 1001 


650 


0720 




RDC i 7£ 


651 


3334 




3I7D+34 CREAD LNS 


652 


6015 




JMP 15 






CNO 


BINARY 


653 


0011 


#4D 


CLR 


654 


4011 




STC 11 


655 


4010 




STC 10 


656 


0724 




WRC i 7E 


657 


0330 




7D+30 


660 


0076 




SET i 16 


66 1 


7300 




71 7D 


662 


6015 




JMP 15 






C ASSIGNMENT SR 


663 


1000 


#2T 


LDA 


664 


0457 




IP 


66 5 


0350 




SCR 10 


66 6 


1620 




BSE i 


667 


0240 




ROL 


670 


4672 




STC p+2 


671 


2315 




ADD 3A+1 


6 7^ 


0450 




ROTATE N 


6 73 


1620 




BSE i 


674 


0000 


#4C 





675 


4674 




STC P-l 


676 


1000 




LDA 


677 


0511 




2X C ASSIGN 


700 


0053 




SET 13 


701 


0000 







702 


1062 




STA i 2 


703 


6454 




JMP 3F 


704 


0202 




XSK 2 


705 


6013 




JMP 13 


706 


0062 




SET i 2 


707 


0777 




777 C CONSTANT 


710 


6743 




JMP 2G 


711 


6713 




JMP 2(M 


712 


6013 




JMP 13 






CRDC BINARY 


713 


0047 


#2N 


SET 7 


714 


oodd 







715 


2457 




ADD IP 


716 


0450 




AZE 


717 


6723 




JMP P+4 


7£0 


1020 




LDA i 



80 



CONVERT* 12 LN=770 



IAP6 



p 


CONT 






721 


2340 




2I7D+40 


722 


4724 




STC 2P 


723 


0720 




RDC i 7E 


724 


2342 


#2P 


2I7D+42 


725 


2724 




ADD P-l 


726 


2750 




ADD 2G+5 


727 


4731 




STC P+2 


730 


0720 




RDC i 7E 


731 


0000 




FOURTH BIN BLK 


732 


2724 




ADD 2P 


733 


1040 




STA 


734 


0746 




2G+3 


735 


1040 




STA 


736 


0756 




2G+13 


737 


1120 




ADA i 


740 


0002 




2 


741 


4724 




STC 2P 


742 


6007 




JMP 7 






C BINARY FULL 


743 


0047 


#2G 


SET 7 


744 


0000 







745 


0726 




WRI i 7E 


746 


2340 




2I7D+40 


747 


1020 




LDA i 


750 


1001 




1001 C CONSTANT 


751 


2746 




ADD P-3 


752 


4754 




STC P+2 


753 


0726 




WRI i 7E 


754 


0713 




2ND BIN BLK 


755 


0727 




CHK i 7E 


756 


2340 




2I7D+40 


757 


0450 




AZE 


760 


6745 




JMP 2G+2 


76 1 


2315 




ADD 3A+1 


762 


2756 




ADD P-4 


763 


4765 




STC P+2 


764 


0727 




CHK i 7E 


765 


0713 




2ND BIN BLK 


766 


0450 




AZE 


767 


6745 




JMP 2G+2 


770 


6007 




JMP 7 






CPASS I 








B1000 


1000 


7335 




JMP 9B CLIST WA 


1001 


7344 




JMP 9A CLIST FILE *J\ 






CCLEAR TABLES ^-"" 


1002 


0061 


#1Y 


SET i 1 


1003 


2776 




8Z CLAST MNEMONIC 


1004 


0062 




SET i 2 


1005 


0134 




8Z-6A CLENGTH OF MNEMONIC 


1006 


0720 




ROC i 7E 


1007 


5337 




5I7D+37 


1010 


0011 




CLR 


1011 


1061 




STA i 1 


1012 


0222 




XSK i 2 


1013 


7011 




JMP P-2 



A-*- 



TABLE 



81 



CONVERT* 13 LN=1060 



LAP6 



p 


CO NT 






1014 


0061 




SET i 1 


1015 


1377 




1377 


1016 


1061 




STA i 1 


1017 


0201 




XSX 1 


1020 


7016 




JMP P-2 


1021 


0017 




COM 


1022 


0061 




SET i 1 


1023 


2351 




6F-1 


1024 


0062 




SET i 2 


1025 


7751 




-26 


1026 


1061 




STA i 1 


1027 


0222 




XSK i 2 


1030 


7026 




JMP p-2 


1031 


0065 




SET i '5 


1032 


2352 




6F 


1033 


6544 




JMP IT 


1034 


4674 




STC 4C 


1035 


0061 




SET i 1 


1036 


6431 




6E-4000 


1037 


1000 




LDA 


1040 


0457 




IP 


1041 


1045 




STA 5 






C CHARACTER CHECK 


1042 


6314 




JMP 3A 


1043 


0044 




SET 4 


1044 


0003 




3 


1045 


1323 


#1A 


LDH i 3 


1046 


0070 




SET i 10 


1047 


0243 




4P ECHAR TABLE 


1050 


1430 




SHD i 10 


1051 


7122 




JMP ID C# 


1052 


1430 




SHD i 10 


1053 


7071 




JMP IB CCOMMENT 


1054 


1430 




SHD i 10 


1055 


7077 




JMP 1G [a 


1056 


1430 




SHD i 10 


1057 


7125 




JMP IE C= 


1060 


1430 




SHD i 10 


1061 


7236 




JMP IF Ct 


1062 


1430 




SHD i 10 


1063 


7262 




JMP 1G £77 


1064 


1460 




SAE i 


1065 


0012 




12 


1066 


7045 




JMP 1A 


1067 


64 54 


#12 


JMP 3F 


1070 


7042 




JMP 1A-3 






CCOMMENT 


1071 


6464 


#1B 


JMP 3G 


107£ 


1324 




LDH i 4 


1073 


1460 




SAE i 


1074 


0066 




66 


1075 


7067 




JMP 1Z 


1076 


7042 


CQ 


JMP 1A-3 


1077 


1000 


01C 


LDA 


1 100 


0457 




IP 



82 



CONVERT* 14 LN=1150 


p 


CO NT 








1 101 


1445 




SAE 


5 


1 102 


7105 




JMP 


1H 


1 103 


6351 




JMP 


3B 


1 i04 


7037 




JMP 


1A-6 


1 105 


2174 


#1H 


ADD 


2Y-4 


I 106 


1560 




BCL 


i 


1 107 


4000 




4000 C CONSTANT 


1 110 


1065 




STA 


i 5 


1111 


0225 




XSK 


i 5 


1 112 


1000 




LDA 




1 113 


0005 




5 




1 1 14 


1460 




SAE 


i 


1115 


2400 




6D 




1 116 


6000 




JMP 





1117 


2515 




ADD 


3J+3 


1 120 


4005 




STC 


5 


1 121 


6000 




JMP 









CTA6 




1 122 


7154 


#1D 


JMP 


1Q 


1 123 


7167 




JMP 


1R 


1 124 


7045 


C = 
#1E 


JMP 


1A 


1 125 


0042 


SET 


2 


1 126 


0003 




3 




1 127 


0043 




SET 


3 


1 130 


0004 




4 




1 131 


7154 




JMP 


1Q 


1 132 


0043 




SET 


3 


1 133 


0002 




2 




1 134 


0044 




SET 


4 


1135 


0002 




2 




1 136 


2011 




ADD 


11 


1 137 


5145 




STC 


p+6 


1 140 


2010 




ADD 


10 


1 141 


5147 




STC 


P+6 


1 142 


6033 




JMP 


2A 


1 143 


7042 




JMP 


1A-3 


1 144 


0071 




SET 


i 11 


1 145 


0000 




RESET 


1 146 


0070 




SET 


i 10 


1 147 


0000 




RESET 


1 150 


1000 




LDA 




1 151 


0511 




2X 




1 152 


71 7i 




JMP 


1R+2 


1153 


7042 




JMP 


1A-3 






£GE 


T U> LETTER SYMBOL 


1 154 


0047 


#1Q 


SET 


7 


1 155 


0000 









1 156 


6372 




JMP 


3C 


1 157 


6401 




JMP 


3D-2 


1 160 


7234 




JMP 


IX 


1 161 


6416 




JMP 


3E 


1 162 


7234 




JMP 


IX 


1163 


5175 




STC 


1R+6 


1 164 


1303 




LDH 


3 


1 165 


+J Cm» t^» ™1 




STC 


1J+4 



LAP6 



83 



CONVERT* 1 5 LN = 1 240 


P 


CO NT 








1 166 


6U07 




JMP 


7 






CASSIGN 


TO TABLE 


1 167 


1000 


#XR 


LDA 




1 170 


04 57 




IP 




1 171 


0047 




SET 


7 


1 172 


0000 









1 173 


1050 




STA 


10 


1 174 


1020 




LDA 


i 


1 175 


0450 




NUM 


ROTATE 


1 176 


1620 




BSE 


i 


1 177 


0240 




ROL 




1200 


5202 




STC 


p+2 


1201 


3107 




ADO 


1H+2 


1202 


0450 




ROTATE 


1203 


1611 




BSE 


11 


1204 


1051 




STA 


11 


1205 


1020 




LDA 


i 


1206 


7377 




-400 


1207 


1140 




ADM 




1210 


0010 




10 




121 1 


1010 




LDA 


10 


1212 


0450 




AZE 




1213 


7220 




JMP 


U 


1214 


2317 




ADO 


1L 


1215 


1050 




STA 


10 


1216 


6475 




JMP 


3H 


1217 


6007 




JMP 


7 






CMULTIPLE DEFINITION 


1220 


1000 


#1J 


LDA 




1221 


1175 




1R+6 


1222 


1361 




STH 


i 1 


1223 


1020 




LDA 


i 


1 224 


0000 




LETTER 


1225 


1361 




STH 


i 1 


1226 


1010 




LDA 


10 


1227 


1061 




STA 


i 1 


1230 


1000 




LDA 




1231 


0317 




1L 




1232 


1061 




STA 


i 1 


1233 


7215 




JMP 


1J-3 






C IGNORE 


ILLEGAL s 


1234 


6464 


#1X 


JMP 


3G 


1235 


7042 




JMP 


1A-3 






CTEXT 




1236 


6512 


#1F 


JMP 


3 J CTEXT CO UN 


1237 


7244 




JMP 


1M Ci 


1240 


7251 




JMP 


iK CEOL 


1241 


7257 




JMP 


IN £77 


1242 


6454 




JMP 


3F C ASSIGN 


1243 


7236 


#1M 


JMP 


IF 


1244 


0233 


XSK 


i 13 


1245 


7247 




JMP 


P+2 CNO ASSIG 


1246 


6454 




JMP 


3F CASSIGN 


1247 


6464 




JMP 


3G CFIND EOL 


1250 


7042 




JMP 


1A-3 



LAP6 



84 



CONVERT* 16 LN=1330 



LAP6 



1251 

1 -^52 
1253 
1254 
1255 
1256 



CO NT 

0072 
7237 
6314 
0233 
6523 
7242 



1257 0233 

1260 7262 

1261 6454 



1262 
1263 
12 64 
1265 
1266 
1267 
1270 
1271 
1272 
1273 
1274 
1275 

1276 
1277 
1 300 
1301 
1302 
1303 
1304 
1305 
1306 
i 307 
1310 
1311 
1312 
1313 
1 3 1 4 
315 
316 
317 
320 
321 
322 
1323 
1324 
1325 
1326 
1327 
1330 
1 331 
1332 
1333 
1334 



6557 
6563 
1000 
04S7 
1445 
7105 
1020 
7776 
2005 
4644 
0724 
3334 

0065 
1377 
001 1 
1065 
0205 
7301 
1020 
33 40 
1040 
1322 
5312 
0726 
0000 
1020 
0001 
3312 
1460 
3350 
7310 
0727 
0000 
0450 
7304 
3314 
1140 
1322 
1460 
33 50 
7321 
6544 
6020 



CTEXT EOL 
//IK SET i 
JMP 
JMP 
KSK 
J MP 
J MP 
CTEXT 77 



12 
1F+1 

3A t CHECK MS 
i 13 
3J+1! 
1F+4 CASSIGN 



#1N 



C77 

#1G 



i 13 

16 

3F [ASSIGN 

9M 

9N 



5 

1H 

i 



XSK 
JMP 

JMP 

JMP 

JMP 

LDA 

IP 

SAE 

JMP 

LDA 

-1 

ADD 5 

STC 4N 

WRC i 7E 

31 7D+34 
C CLEAR AMD WRITE BINARY 

SET i 5 

1377 

CLR 

STA i 5 

KSK 5 

JMP P-2 
#1U LDA i 

3I7D+40 

STA 

IS 

STC P+2 

WRI i 7E 

ZERO TO BINARY 

LDA i 

1 

ADD P-3 

SAE 1 

317D+50 

JMP 1U+4 

CHK i 7£ 
tf IS BINARY 

A£E 

JMP 1U 

ADO 1S-6 

ADM 

IS 

SAE i 

3170+50 

JMP 1S-1 

JMP IT 

JMP 20 



85 



CONVERT* 17 LN=1420 



LAP6 



CO NT 



CLIST PRESET 
C WORKING AREA 



1335 


1000 


#9B 


LDA 


1336 


2371 




6H 


1337 


4771 




STC 9J 


1340 


1000 




LDA 


1341 


td\3 f cL 




6H+1 


1342 


4172 




STC 9J+1 


1343 


7347 




JMP 9A+3 






CFILE 


1344 


0720 


#9A 


RDC i 7E 


1345 


0330 




7D+30 


1346 


0011 




CLR 


1347 


4560 




STC 9M+X 


1350 


3377 




ADD 1377 


1351 


1620 




BSE i 


1352 


6000 




6000 


1353 


4545 




STC 1T+1 


13 54 


3376 




ADD 1376 


1355 


1040 




STA 


1356 


0337 




3L-7 


1357 


1620 




BSE i 


1360 


0020 




i CRDC i u 


1361 


4330 




STC 1L+11 


13 62 


1020 




LDA-i 


1363 


0016 




NOP 


1364 


5034 




STC 1A-11 


1365 


7002 




JMP 1Y CPASS I 
S1376 


1376 


0700 




RDC 7B 


1377 


0350 




7A 
B2642 






CMNEMONICS 


2 642 


4746 










#6A 


tTS* 


2 643 


4046 




TMSi 


2644 


4627 




tSDi 


2 645 


3653 




tKX* 


2646 


3745 




TLR* 


2647 


4545 




TRR* 


2 650 


4546 




tRS* 


2651 


3746 




tLS* 


2 652 


4346 




tPS* 


2 653 


4542 




tROi 


2654 


0000 




CUNDEFINED 


2655 


0000 







2656 


0000 








86 



C0UVERTV20 LN=1476 IAP6 



p 


CO NT 




2 657 


4340 


TPM* 


2660 


4740 


TTMi CMAG TAPE TW0 = 740 


2661 


2437 


TAL4 


2 662 


2446 


t AS* 


2663 


2424 


t AAA 


2664 


4024 


tMAA 


266 5 


4037 


tML* 


2 666 


3740 


TLM* 


2667 


3337 


THU 


2670 


3346 


THSi 


2 671 


2746 


TDS* 


2672 


3046 


tES* 


2673 


4246 


tQSi 


2674 


3725 


tLB* 


2675 


3025 


tEBt 


2 67 6 


4225 


tOBa 


2677 


0000 





2 700 


2627 


#6C tCDi 


2 701 


2724 


t DA 4 


2702 


2646 


tGSa 


2703 


4335 


TPJ4 

C SUBSTITUTE MNEMONICS 


2704 


4733 


TTH4 


2705 


2455 


tAZi 


2706 


3430 


TIE* 


2707 


4526 


TRC* 


2710 


4524 


tRAA 


271 1 


2445 


f AR4 


2712 


4341 


tPN* 



87 



COMV ERT* 2 1 LN= 1 533 LAP6 



p 


CONT 




2713 


4026 


tMCi 


2714 


4736 


tTKt 


2715 


46 46 


TSS* 


2716 


4143 


tNPi 


2717 


3024 


t£A* 


2720 


4224 


tOA* 


2 721 


3037 


tEH 


2722 


5534 


tZI* 


2723 


3142 


TFO* 


2724 


5555 


tZZ* 


2725 


2645 


TOR* 


2726 


3245 


tQR* 


2727 


3045 


tERi 


2730 


2540 


TBMi 


2731 


2652 


tCW* 


2 732 


w£* On* 


tGVM 


2733 


3452 


tiw* 


2 734 


3626 


tKCi 


2735 


2736 


?DK* 


2736 


5245 


t WR* 


2737 


5237 


C CODES 


2740 


2000 


#6G ADD 


2741 


4000 


STC 


2742 


6000 


J MP 


2 743 


0000 


HLT 


2 744 


0005 


ZTA 


2745 


0010 


EN I 


2746 


0011 


CLR 


2747 


0014 


ATR 


2 750 


0015 


RTA 


2751 


0016 


NOP 


2752 


0017 


COM 


2753 


0415 


KST 


2754 


0440 


SNS 



88 



CONVERT* 22 


: LN=1576 


LAP6 


p 


COMT 








2755 


0446 




PIN 




2 756 


0450 




AZE 




2757 


0451 




APO 




2 760 


0452 




LZE 




2761 


0453 




IBZ 




2762 


0454 




OVF 




2763 


0455 




ZZZ 




2764 


0700 




RDC 




2 76 5 


0701 




RCG 




2 76 6 


0702 




RDE 




2 767 


0703 




MTB 




2770 


0704 




WRC 




2771 


0705 




WCG 




2 772 


0706 




WRI 




2773 


0707 




CHK 




2774 


0515 




KBD 




2775 


0516 




RSW 




2 776 


0517 


#8Z 


LSW 

7A=350 

78=0 

7D=300 

7E=0 

6B=2000 

60=2400 

6£=2432 

6F=2352 

6H=2371 

9J=771 


t SYMBOL ASSIGNMENTS 
CMARK REGISTERS 
C ERRORS 

C MEMORY ALLOCATION 
CPARTIAL NUMBERS 






CLAP6 CONVERT 



89 



cv 


DIS*0 




VALUE 


LINE 


4A 


0525 


520 


5A 


0021 


13 


SB 


0140 


135 


5C 


0223 


225 


3D 


0152 


150 


5E 


0160 


157 


5F 


0217 


220 


5G 


0214 


215 


5H 


0210 


210 


5J 


0200 


177 


5K 


0042 


35 


5L 


0302 


307 


5M 


0237 


242 


5P 


0265 


271 


59 


0074 


70 


5R 


0055 


50 


5S 


0325 


332 


5T 


0257 


262 


5U 


0104 


100 


5V 


01 17 


113 


5W 


0327 


336 


5X 


0513 


514 


5Y 


0502 


512 


5Z 


0476 


510 


68 


2000 


664 


6£ 


2432 


66 5 


6F 


£*0 0<£» 


666 


6J 


0337 


346 


6K 


03 65 


374 


6L 


0377 


407 


6M 


0411 


421 


6N 


0431 


441 


6P 


0452 


463 


6R 


0461 


472 


7D 


0300 


670 


7E 


0000 


667 



IAP6 



90 



CV DIS> 1 LN=1 



LAP6 



p CONT 





CLAP6 CONVERT DISPLAYS 




£ BLOCKS 


310-311 




C QUARTERS 0-1 






Q14 




14 6452 




JMP 


6P CDS META 


15 0701 




RCG 


7E 


16 1310 




1 I7D+10 


17 0076 




SET 


i 16 


20 7300 




7I7D 




EDI SPLAY ERRORS 


21 1000 


#5A 


LDA 




22 2432 




6E 




23 0471 




APO 


i 


24 0450 




AZ.E 




25 6074 




JMP 


59 C ERRORS 




C MEMORY 


ALLOCATION 


26 1000 




LDA 




27 23 52 




6F 




30 0451 




APO 




31 6327 




JMP 


5W CNO MEM ALLOCATE 


32 0052 




SET 


12 


33 10Q0 




1000 CLAST ALLOCATE ADDRESS 


34 0073 




SET 


i 13 


35 2351 




6F-1 




36 0074 




SET 


i 14 


37 0024 




24 




40 0063 




SET 


i 3 


41 2351 




6F-1 




42 0064 


#5K 


SET 


i 4 


43 4501 




5Y-4000 


44 0061 




SET 


i 1 


45 01 14 




114 




46 6140 




JMP 


5B C DISPLAY LABEL 


47 0044 




SET 


4 


50 0003 




3 




51 0071 




SET 


i 11 


52 7765 




-12 




53 0070 




SET 


i 10 


54 0200 




200 




55 0061 


#5R 


SET 


i 1 


56 0234 




234 




57 1024 




LDA 


i 4 


60 0451 




APO 




61 6042 




JMP 


5K 


62 6161 




JMP 


5E+1 


63 1020 




LDA 


i 


64 0036 




36 


C- 


65 6224 




JMP 


5C+1 


66 6160 




J MP 


5E 


67 6302 




JMP 


5L CLINE LOWER 


70 6327 




JMP 


5W EEOL 


71 0231 




XSK 


i 11 


72 6055 




JMP 


5R 


73 6042 




JMP 


5K 




C ERRO RS 




74 0052 


#5Q 


SET 


12 



91 



CV DIS*2 LN=7i 



LAP6 



? 


CONT 






75 


1001 




1001 


76 


0073 




SET i 13 


77 


2431 




6E-1 C8EGIN £RR< 


100 


0074 




SET i 14 


101 


0036 




36 


102 


0063 




SET i 3 


103 


6431 




6E-4000 


104 


00 64 


#5U 


SET i 4 


105 


4475 




52-4000 


106 


0061 




SET i 1 


107 


0260 




260 


110 


6140 




JMP 58 [DISPLAY 


1 11 


0044 




SET 4 


1 12 


0003 




3 


1 13 


0071 




SET i 11 


114 


7765 




-12 


115 


0070 




SET i 10 


1 16 


0200 




200 


117 


0061 


#5V 


SET i 1 


120 


0164 




164 


121 


1324 




LDH i 4 


122 


0470 




AZE i 


123 


6104 




JMP 5U 


124 


6152 




JMP 5D C DISPLAY 


125 


6210 




JMP 5H C SPACE 


126 


6160 




JMP 5E 


127 


6210 




JMP 5H 


130 


1024 




LDA i 4 


131 


0450 




AZE 


132 


6161 




JMP 5E+1 C2ND L 


133 


6302 




JMP 5L 


134 


6026 




JMP 5A+5 CEOL 


135 


0231 




XSK ill 


136 


61 17 




JMP SV 


137 


6104 




JMP 5U 






C DISPLAY LABEL 


140 


0070 


#58 


SET i 10 


141 


0300 




300 


142 


0045' 




SET 5 


143 


0000 







144 


1324 




LDH i 4 


145 


1420 




SHD i 


146 


1200 




1200 


147 


6005 




JMP 5 


150 


6223 




JMP 5G 


151 


6144 




JMP 5B+4 






C DISPLAY SYMBOL 


152 


0045 


#50 


SET 5 


153 


0000 







154 


6223 




JMP 5C 


155 


1324 




LDH i 4 


156 


6223 




JMP 5C 


1S7 


6005 




JMP 5 






C DISPLAY LINE NUMBE 


160 


1024 


#5E 


LDA i 4 


161 


0045 




SET 5 



LABEL 



SYMBOL 



LINE 



92 



CM 01 S* 3 LN=161 



IAP6 



p 


CO NT 








162 


0000 









f 63 


0241 




ROL 


1 


164 


4217 




STC 


5F 


165 


6214 




JMP 


5G 


166 


04 50 




AZE 




167 


6200 




JMP 


5J 


170 


6210 




JMP 


5H 


171 


0450 




AZE 




172 


6202 




JMP 


5J+2 


173 


6210 




JMP 


5H 


174 


0450 




AZE 




175 


6204 




JMP 


5J+4 


176 


6210 




JMP 


5H 


177 


6206 




JMP 


5J+6 


200 


6224 


#5 J 


JMP 


5C+1 


201 


6214 




JMP 


5G 


202 


6224 




JMP 


5C+1 


203 


6214 




JMP 


5G 


204 


6224 




JMP 


5C+1 


205 


621,4 




JMP 


5G 


206 


6224 




JMP 


5C+1 


207 


6005 




JMP 


5 






CLEADING ZEROS 


210 


1020 


5H 


LDA 


i 


211 


0024 




24 




212 


2001 




ADD 


1 


213 


4001 




STC 


1 






£GE' 


r DIGIT 


214 


2217 


#5G 


ADD 


SF 


215 


0243 




ROL 


3 


216 


1060 




STA 


i 


217 


0000 


#5F 


NUMBER 


220 


1560 




BCL 


i 


221 


7761 




7761 




222 


6000 




JMP 









C DISPLAY 


223 


0241 


#5C 


ROL 


1 


224 


1120 




ADA 


£ 


22 5 


0525 




4A 


CGRID PATTERNS 


22 6 


4006 




STC 


6 


22 7 


2010 




ADD 


10 


230 


1746 




DSC 


6 


231 


1766 




DSC 


i 6 


232 


1020 




LDA 


i 


233 


0004 




4 




234 


2001 




ADD 


1 


235 


4001 




STC 


1 


236 


6000 




JMP 









C FORWARD 1 FRAME 


237 


1000 


#5M 


LDA 




240 


0014 




14 




241 


2003 




ADD 


3 


242 


1060 




STA 


i 


243 


0000 




NEW 


FRAME 


244 


1560 




BCL 


i 


245 


4000 




4000 



93 



V Dl 


LS#4 


LN=: 


251 


p 


CO NT 






246 


0017 




COM 


247 


42 54 




STC P+5 


2 50 


2012 




ADD 12 


251 


1560 




BCL i 


2 52 


4000 




4000 


253 


1 120 




ADA i 


254 


0000 




WHO KNOWS 


255 


0451 




APO 


256 


62 63 




JW 5T+4 


257 


00 43 


*5T 


SET 3 


260 


0243 




5M+4 


261 


0071 




SET i 1 1 


262 


7776 




-1 


263 


001 1 




CLR 


264 


6325 




JMP 5S 






CBACK 1 FRAME 


265 


1000 


#5P 


LDA 


266 


0014 




14 


267 


0017 




COM 


270 


2003 




ADO 3 


271 


1040 




STA 


272 


0243 




5M+ 4 


273 


1560 




BCL i 


274 


4000 




4000 


275 


0017 




COM 


276 


2013 




ADD 13 


277 


0471 




APO i 


300 


6263 




JMP 5T+4 


301 


6257 




JMP 5T 






CLINE LOWER 


302 


0045 


#5L 


SET 5 


303 


0000 







304 


1020 




LDA i 


305 


77 40 




-37 


306 


2010 




ADD 10 


30 7 


4010 




STC 10 


310 


0415 




KST 


31 1 


6325 




JMP 5S 


312 


0515 




KBD 


313 


1 420 




SHD i 


314 


4500 




4500 CR 


315 


6015 




JMP 15 


316 


0470 




AZE i C FORWARD 


317 


6237 




JMP 5M 


320 


I 420 




SHD i 


321 


4400 




4400 CO-BACKWARD 


322 


6265 




JMP 5P 


323 


1460 




SAE i 


324 


0012 




12 


325 


0225 


#5S 


XSK i 5 


326 


6005 




JMP 5 






C SYMBOL TABLE 






CMAKE NEW TABLE 


327 


0061 


#5W 


SET i 1 


330 


6377 




2 400-4000 


331 


0062 




SET i 2 



LAP6 



94 



Q\J »>is*s LN=34t IAP6 

i» CO <4 V 

332 1377 1377 CLN TABLE 

33 3 00 63 SET i 3 
33 4 OOOl 1 

33 5 Of) 66 SET i 6 

3 3 6 7 7 66 - 1 1 

33 7 0064 #6J SKT i 4 
3-10 0024 2 4 CA 
341 00 6 S SKT 1 5 
343 7 74b -32 

343 10'! 2 LI) A i 2 

344 04 70 AZE I 

3 45 63 65 J>1P 6K 

34 6 inno LOA 

34 7 O()03 3 CLUMBER 

3 50 13 61 STH 1 1 

3b 1 1000 LOA 

352 0004 4 CLETTER 

353 1361 STH i 1 

354 1020 LOA i 
3 55 0400 400 

3 56 2002 AOO 2 

357 4361 STC P+2 

3 60 1000 LDA 

361 0000 MEM ASSIGN 

3 62 106 1 STA i 1 

3 63 1002 LDA 2 CLN 

364 1061 STA i 1 

36 5 0224 #6K XSK i 4 CUP LETTER 

36 6 022 5 XSK i 5 
3 67 6343 JMP 6 J+ 4 

3 70 0223 XSK i 3 CUP NUMBER 

371 0226 XSK i 6 

372 633 7 J>1P 6 J 

373 00 52 SET 12 

374 0001 1 

37 5 001 1 CLR 

376 1061 STA i 1 CLAST ENTRY 

C DISPLAY SYMBOLS 

377 00 73 #6L SKT i 13 

400 23 7 7 2 400-1 CIST ENTRY 

401 0074 SET i 14 

402 003 6 3 6 

403 1000 LOA 

404 2400 2 400 

405 0470 A£E i 

406 6015 JMP 15 CNO SYMBOLS 

407 0O63 SET i 3 

410 63 77 2400-4000 

41 1 0064 #6M SET I 4 

412 4512 5X-4000 

413 0061 SET i 1 

414 02 60 2 60 

415 6140 JMP 5B CIST LABEL 

416 0061 SET i 1 

417 0210 210 

420 0070 SET i 10 



95 



V BIS* 6 


LN= 


431 


LAP( 


P COiMT 








421 0240 




240 




422 6142 




JMP 


53+2 C2ND LABEL 


A23 QOAA 




SET 


4 


A2A 0003 




3 




42 5 0071 




SET 


i 11 


426 7765 




-12 




437 0070 




SET 


i 10 


430 0200 




200 




431 0061 


#6N 


SET 


i 1 


432 0114 




1 14 




433 1324 




LDH 


i A 


434 0470 




A2E 


i 


435 6411 




JMP 


6M 


436 6152 




JMP 


5D EDI SPLAY SYMBOL 


43 7 6210 




JMP 


5H CSPACE 


440 6160 




JMP 


5E CVALUE 


44 1 62 1 




JMP 


5H CSPACE 


442 6210 




JMP 


5H 


443 6210 




JMP 


5H 


444 6160 




JMP 


5E CLINE # 


445 6302 




JMP 


5L ELOWER LINE 


446 6461 




JMP 


6R CEOL-SAVE TABLE 


447 0231 




XSK 


i 11 


450 6431 




JMP 


6N 


451 6411 




JMP 


6M 




C DISPLAY SYMBOL TABLE META 


452 0076 


#6P 


SET 


i 16 


453 7300 




7I7D 


454 0720 




RDC 


i 7E 


455 3312 




3I7D+12 


456 0700 




RDC 


7£ 


457 4313 




4170+13 


46 6327 




JMP 


5W 


461 0726 


#6R 


WRI 


i 7E 


46 2 3312 




3I7D+12 


463 0726 




WRI 


i 7E 


464 4313 




4I7D+13 


465 0727 




CHK 


i 7E 


466 0312 




7D+12 


467 0450 




AZE 




470 6461 




JMP 


6R 


471 ,0727 




CHK 


i 7E 


472 0313 




7D+1 


[3 


473 0450 




AZE 




474 6461 




JMP 


6R 


475 6015 




JMP 


15 




CLABELS 




476 3045 








477 4542 








500 4546 








501 1214 


#5Z 


TERRORS 


502 4030 








503 4042 








504 4554 








505 1424 









96 



CV DIS*7 LN*513 



IAP6 



p. CONT 






506 3737 






507 4226 






510 2447 






511 3442 






512 4112 


#5Y t MEMORY ALLOCATION 


513 4654 


* 




514 4025 






515 4237 






516 4612 


#5X t SYMBOLS 


517 5124 






520 3750 






521 3014 






522 1437 






S23 3441 






524 3012 


VALUE 
i 
CGRID PAT 


: LINE 




TERNS 


525 4136 


#4A 4136 


CO 


526 3641 


3641 




527 2101 


2101 




530 0177 


0177 




531 4523 


4523 




532 2151 


2151 




533 4122 


4122 




534 2651 


2651 




535 2414 


2414 


C4 


536 0477 


0477 




537 5172 


5172 




540 0651 


0651 




541 1506 


1506 




542 4225 


4225 




543 4443 


4443 


C7 


544 6050 


6050 




545 5126 


5126 




546 2651 


2651 




547 5120 


5120 




550 3651 


3651 




551 0000 


0000 


CEOL 


552 0000 


0000 




553 4020 


4020 


CDEL 


554 2055 


2055 




555 0000 


0000 


C SPACE 


5S6 0000 


0000 




557 0101 


0101 


Ci 


560 0126 


0126 




561 ; 3700 


3700 


CP 


56 2 3424 


3424 




563 0404 


0404 


O 


56 4 0404 


0404 




565 0404 


0404 


C + 


566 0437 


0437 




56 7 0000 


0000 


CI 


570 0077 


0077 




571 3614 


3614 


C# 


572 1436 


1436 





97 



:v oi s* 10 


LN-566 


p 


CO NT 




573 


0000 


0000 


£74 


0000 


0000 


575 


4477 


4477 


576 


7744 


7744 


577 


5177 


5177 


600 


2651 


2651 


601 


4136 


4136 


602 


2241 


2241 


603 


4177 


4177 


6 04 


3641 


3641 


605 


4577 


4577 


606 


4145 


4145 


607 


4477 


4477 


610 


4044 


4044 


611 


4136 


4136 


612 


2645 


2645 


613 


1077 


1077 


614 


7710 


7710 


615 


7741 


7741 


616 


0041 


0041 


617 


4142 


4142 


620 


4076 


4076 


621 


1077 


1077 


622 


4324 


4324 


623 


0177 


0177 


624 


0301 


0301 


625 


3077 


3077 


626 


7730 


7730 


627 


3077 


3077 


630 


7706 


7706 


631 


4177 


4177 


632 


7741 


7741 


633 


4477 


4477 


634 


3044 


3044 


635 


4276 


4276 


636 


0376 


0376 


637 


4477 


4477 


640 


3146 


3146 


641 


5121 


5121 


642 


4651 


4651 


643 


4040 


4040 


644 


4077 


4077 


645 


0177 


0177 


646 


7701 


7701 


647 


0176 


0176 


650 


7402 


7402 


651 


0677 


0677 


652 


7701 


7701 


653 


1463 


1463 


654 


6314 


6314 


655 


0770 


0770 


656 


7007 


7007 


657 


4543 


4543 


660 


6151 


6151 


661 


0404 


0404 


662 


0404 


0404 



LAP6 



CCASE 



CA 



CD 



CG 



CJ 



CM 



CP 



CS 



cv 



CY 



CM£TA 



98 



CV 01 S* 1 1 


LN=656 


p CONT 




663 2504 


2504 C ARROW 


664 0416 


0416 


665 4141 


4141 CBACKWARD 


666 0077 


0077 C COMMENT 


667 1212 


1212 C= 


670 1212 


1212 




6B=2000 




6E=2432 




6F=2352 




7E-0 




7D=300 



LAP6 



CLAP6 CONVERT DISPLAYS 



99 



DiSX PX*0 



IAP6 



value: 

1A 0601 
0204 
044 6 
022 5 
0332 
0316 
0646 
0703 
0425 
0735 
0640 
0621 



13 
1C 
1 D 
1 £ 
1G 
1J 
\'< 
l'y} 

IN 
IP 
19 



1R 
IS 

IT 
1U 
IV 

1 w 
IX 
1Y 

1Z 

2A 
2B 
2C 
2D 

2E 
2G 
2H 
2J 
2L 
2M 
2N 
50 
5£ 
5^ 
56 
5H 
5J 
5K 

5 m 

5T 
6A 
6£ 

7 A 
73 
7D 
7£ 
7G 
o A 
8B 
SC 

8 J 
3K 
8L 

S iNi 
SP 

8Q 

8R 



0530 

0617 

0654 

04 55 

051 5 

0422 

0403 

0712 

0726 

0226 

0627 

0636 

0540 

0373 

0630 

0254 

0363 

0272 

0505 

0563 

0152 

0174 

0044 

01 1 i 

0065 

0130 

0020 

01 17 

0076 

2001 

2371 

03 50 

0000 

0300 

0000 

042 6 

141 1 

1417 

1472 

1 650 

1637 

1453 

1544 

1552 

1531 

0136 

1523 



LINE 

634 

210 

472 

232 

346 

331 

710 

750 

447 

1005 

701 

657 

561 

654 

717 

502 

545 

444 

42 4 

76 

775 

234 

666 

676 

572 

412 

66 7 

263 

401 

302 

533 

615 

155 

177 

42 

1 10 

63 

131 

4 5 

1 17 

75 

1023 

1022 

1444 

1445 

1446 

1447 

1024 

1045 

1053 

1 127 

1315 

1304 

1110 

1206 

1214 

1 172 

140 

1 163 



VALUE 
8S 1666 
1520 
1676 
1574 
156 2 
1501 
1613 
1422 
0771 



8T 
8U 
8V 
8W 
8X 
SY 
8Z 
9J 



LINE 
1334 
1157 
1345 
1237 
1225 
1137 
1257 
1057 
1025 



100 



DISX PX> 1 LN = 1 



LAP6 



CO NT 



15 0701 

16 7300 

17 6225 



20 
21 
22 
23 
24 
25 
26 

27 
30 
31 
32 
33 
34 
35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 
50 
51 
52 
53 
54 
55 
56 
57 
60 
61 
62 
63 
64 
65 
66 
67 
70 
71 
72 



0720 
1326 
0720 

6204 
7501 
6117 

0062 
4151 
7613 
7501 
7613 
0062 
4173 
7613 
0062 
7007 
7501 
0073 
7767 
1322 
1420 
5700 
60 65 
1420 
7700 
2127 
7562 
0233 
6044 
6076 
6130 
7560 
7560 
6076 
0016 
7501 
1000 
0002 
1620 
7007 
4002 
0202 



CLAP6 DISPLAY INDEX 

CBLOCKS 325-326 

C QUARTERS 0-1 

CLAP6 PRINT INDEX 

CBLOCKS 325-326 

CQUARTFRS 0-1 

C CONVERT WITH TELETYPE 

Q15 

RCG 7E 

7I7D 

JMP ID CDX 
CPRINT INDEX 
#5K RDC i 7E 

117D+26 C2ND Q 

RDC i 7E 

3I7D+35 CTTSRS 

JMP 18 CREAD INDEX 

J MP 8X 

J MP 5M 
CPRINT LABEL 

SET i 2 

5D-4000 

JMP 8Y 

JMP 8X 

JMP 8Y 

SET i 2 

5E-4000 

JMP 8Y 

SET i 2 

7007 

JMP 8X 

i 13 



#5F 



5H 



SET 
-10 
LDH 
SHD 



5700 

JMP 5H 

SHD i 

7700 

ADD 

JMP 

XSK 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

NOP 

JMP 

LDA 

2 

8SE I 

7007 

STC 2 

XSK 2 



CNO ENTRY 



5J-1 

8W 

i 13 

5F 

5T 

5 J CNO 

8W-2 

8W-2 

5T 

CNO 
SX 



C63 



MS 



BINARY 



101 



DISK PX,2 LN = 71 



LAP6 



p 


CO NT 






73 


6042 




JMP 5F-2 


74 


6117 




J MP 5M 


75 


6015 




JMP 15 






C6ET BN, #8LKS 


76 


0045 


#5T 


SET 5 


77 


0000 







100 


1022 




LDA i 2 


101 


1560 




BCL i 


102 


7000 




7000 


103 


41 11 




STC 5G 


104 


1022 




LDA i 2 


105 


0451 




APO 


106 


6000 




JMP CNO ENTRY 


107 


7560 




JMP 8W-2 


1 10 


1020 




LDA i 


111 


2500 


#5G 


BLOCK NUMBER 


1 12 


6136 




JMP 8Q 


113 


1002 




LDA 2 C#BLKS 


1 14 


6136 




JMP 8Q 


115 


0225 




XSK i 5 


1 16 


6005 




JMP 5 C ENTRY* P+2 






CLIME FEED 


1 17 


0043 


#5M 


SET 3 


120 


0000 







121 


0065 




SET i 5 


122 


7766 




-11 


123 


7520 




JMP 8T 


124 


0225 




XSK i 5 


125 


6123 




JMP P-2 


126 


6003 




JMP 3 


127 


7714 




-63 C77-63=14 






CNO 


MS-SPACE OVER 


130 


0073 


#5J 


SET i 13 


131 


7766 




-11 


132 


7560 




JMP 8W-2 


133 


0233 




XSK i 13 


134 


6132 




JMP P-2 


135 


6060 




JMP 5H-5 






CPRINT NUMBER-LEADIN< 


136 


0044 


#89 


SET 4 


137 


0000 







140 


0450 




AZE 


141 


6144 




JMP P+3 


142 


7562 




JMP 8W 


143 


6004 




JMP 4 


144 


7544 




JMP 8M 


145 


0450 




AZE 


146 


7526 




JMP 8R+3 


147 


756 




JMP 8W-2 


ISO 


7552 




JMP 8N 


151 


6144 




JMP 8Q+6 






C INDEX LABELS 


152 


1414 


#5D 


1414 CMANUSCRIPT 


153 


1414 




1414 


154 


1414 




1414 


155 


1414 




1414 



SPACES 



102 



OiSX PX>3 LN=161 



LAP6 



p 


CONT 






156 


4024 




4024 


157 


4150 




4150 


160 


4626 




4626 


161 


4534 




4534 


162 


4347 




4347 


163 


1414 




1414 


164 


1414 




1414 


165 


2 534 




2534 CBINARY 


166 


4124 




4124 


167 


45S4 




4554 


170 


1214 




1214 


171 


1441 




1441 CNAME 


17 2 


2440 




2440 


173 


3014 




3014 


174 


1 414 


#5E 


1414 CBN #8LKS 


175 


1425 




1425 


176 


41 14 




4114 


177 


2225 




2225 


200 


3736 




3736 


201 


4612 




4612 


202 


0720 




RDC i 7E 


203 


1326 




1 I7D+26 






C INDEX READ 


204 


1000 


#1B 


LDA 


205 


2377 




6E+6 


206 


1 140 




ADM 


20 7 


0212 




p+3 


210 


2374 




ADD 2E+1 C4 


21 1 


4510 




STC 2M+3 


212 


0701 




RCG EUNIT FIXED 


213 


1426 




1 I7G C INDEX BN 


214 


4506 




STC 2M+1 


215 


2622 




ADD 1G+1 


216 


4630 




STC 2G 


217 


1000 




LDA 


220 


•3000 




3000 


221 


1460 




SAE i 


222 


5757 




5757 


223 


6735 




JMP IN 


224 


6000 




JMP 






CDISPLAY INDEX 


225 


6202 


#\D 


J MP 18-2 






C COUNT ENTRIES 


22 6 


0070 


#2A 


SET i 10 


227 


3007 




3007 


230 


0072 




SET i 12 


231 


0000 







232 


6373 




JMP 2E CUP 10 


233 


63 63 




JMP ZJ 


234 


0016 




NOP 


235 


63 63 




JMP 2J 


23 6 


0016 




NOP 


237 


0210 




XSK 10 


240 


6232 




JMP 2A+4 


241 


1000 




LDA 


242 


0012 




12 



103 



DISK PX#4 LN=251 



LAP6 



p 


CO NT 






243 


00 1 7 




COM 


244 


1040 




STA 


245 


001 1 




1 1 


246 


2273 




ADD 2L+1 CIO 


247 


04 51 




APO 


250 


62 54 




JMP 2H 


251 


1000 




LDA 


252 


00 1 1 




1 1 


253 


46 30 




STC 2G 






CDI SPLAY PRESET 


254 


0052 


#2H 


SET 12 


255 


0630 




2G C-# CURRENT 


256 


0070 




SET i 10 


257 


7007 




7007 


260 


0074 




SET i 14 


261 


6325 




JMP 1G+7 


262 


6373 




JMP 2E CUP 10 


263 


63 63 




JMP 2J CCHK MS 


264 


6272 




JMP 2L CMS ENTRY 


265 


63 63 




JMP 2J CCHK BIN 


266 


62 70 




JMP p+2 CBIN ENTRY 


267 


6262 




JMP P-5 


270 


0074 




SET i 14 


271 


6316 




JMP 1G 






CONCE PER FRAME 


272 


0044 


#2L 


SET 4 


273 


0010 




10 C CONSTANT 


27 4 


00 63 




SET i 3 


275 


7767 




-10 


276 


1000 




LDA 


277 


0630 




2G 


300 


2273 




ADD 2L+1 CIO 


301 


0451 




APO 


302 


6400 




JMP 2E+5 C2G .MORE 


303 


0017 




COM 


304 


4012 




STC 12 






CCOMPUTE VERTICAL 


305 


2401 




ADD 2E+6 


306 


1 120 




ADA i 


307 


0040 




40 


310 


0232 




XSK i 12 


31 I 


6306 




JMP P-3 


312 


0043 




SET 3 


313 


0630 




2G 


314 


4425 




STC 1M 


315 


6014 




JMP 14 






COMCE PER LINE 






CBN 


ENTRY 


316 


0077 


#16 


SET i 17 CBINARY 


317 


0052 




52 CB 


320 


6403 




JMP IX 


321 


1020 




LDA i 


322 


7775 




-2 


323 


1 140 




ADM 


324 


0004 




4 


325 


0077 




SET i 17 CMS ENTRY 



THAN 10 



104 



ISX 


PX, 5 


LU- 


= 341 




p 


CO NT 








326 


0100 




100 


CM 


327 


6403 




JMP 


IX 


330 


6332 




J MP 


IE 


331 


6316 




J MP 


1G 






lI CHECK NAME 


3 32 


0057 


#1£ 


SET 


17 


333 


0000 









334 


1020 




LDA 


i 


335 


7771 




-6 




33 6 


1 140 




ADM 




337 


0004 




4 




340 


0066 




SET 


i 6 


341 


7767 




-10 




342 


0061 




SET 


i 1 


343 


0070 




70 




344 


0045 




SET 


5 


345 


0004 




4 




346 


1325 




LDH 


i 5 


347 


1420 




SHD 


i 


350 


5700 




5700 


351 


6000 




JMP 





352 


63 57 




JMP 


p+5 






C DISPLAY NAME 


353 


1325 




LDH 


i 5 


354 


1420 




SHD 


i 


355 


7700 




7700 


356 


6017 




JMP 


17 


357 


6712 




JMP 


1Y 


360 


0226 




XSK 


i 6 


361 


6353 




JMP 


p-6 


3 62 


6017 




JMP 


17 






[CHECK ENTRY FOR COUNT 


36 3 


0053 


#2J 


SET 


13 


364 


0010 




10 


C DELETE ADDRESS 


365 


1030 




LDA 


i 10 


366 


1030 




LDA 


i 10 


367 


0471 




APO 


i 


370 


0232 




XSK 


i 12 


371 


0220 




XSK 


i 


372 


6000 


CUP 


JMP 
10 


[P+l IF ENTR 


373 


1020 


#2E 


LDA 


i 


374 


0004 




4 


£ CONSTANT 


37 5 


1 140 




ADM 




376 


0010 




10 




377 


6000 




JMP 









[FIX VERTICAL 


400 


1020 




LDA 


i 


401 


7500 




-277 [CONSTANT 


402 


6314 




JMP 


1G-2 






[CHECK ENTRY 


403 


0046 


#1X 


SET 


6 


404 


0000 









405 


1020 




LDA 


i 


40 6 


7776 




-1 


[CONSTANT 


407 


1 140 




ADM 





LAP6 



105 



DISK PX# 6 LN=431 



IAP6 



p 


CO NT 






410 


0004 




4 


41 I 


1004 




LOA 4 


412 


1560 




BCL i 


413 


7000 




7000 


414 


4432 




STC 1M+5 C8 


415 


1024 




LDA i 4 


416 


0451 




APO 


417 


6000 




JMP CNO EN 


420 


0061 




SET i 1 


421 


0354 




354 






C DISPLAY ENTRY 


422 


1020 


#1W 


LDA i 


423 


0040 




40 


424 


1 160 




ADM i 


42 5 


0000 


#1M 


VERTICAL 


426 


1000 




LDA 


427 


0017 




17 


430 


6713 




JMP 1Y+1 


431 


i 020 




LDA i 


432 


0000 




8N 


433 


6654 




JMP IT 


434 


1004 




LDA 4 C#8LKS 


43 5 


66 54 




JMP IT 


436 


0223 




XSK i 3 


437 


6006 




JMP 6 






CLAST NAME 


440 


1000 




LDA 


441 


0004 




4 


442 


1560 




BCL i 


443 


0002 




2 


444 


4004 




STC 4 


445 


6332 




JMP IE 






EDI SPLAY TITLE 


446 


1020 


#1C 


LDA i 


447 


0100 




100 


450 


2425 




ADD 1M 


451 


4425 




STC 1M 


452 


6515 




JMP IV 


453 


0415 




KST 


454 


6272 




JMP 2L 






[KEYBOARD 


455 


0515 


#1U 


KBD 


456 


1420 




SHD i 


457 


0100 




100 CI 


460 


6617 




JMP IS 


461 


1420 




SHD i 


462 


5200 




5200 CW 


463 


6636 




JMP 2C 


464 


0470 




AZE i CO 


465 


6621 




JMP 1Q 


466 


1420 




SHD i 


467 


4400 ' 




4400 CQ 


470 


6640 




JMP IP 


471 


1420 




SHD i 


472 


1300 




1300 CDEL 


473 


6540 




JMP 2D 



106 



DiSX PX* 7 LN=521 



LAP6 



p CO NT 

474 1420 SHD i 

475 1200 1200 CEOL 

476 6015 JMP 15 

477 1420 SHD i 

500 4500 4500 C REPEAT 

501 6513 JMP 1V-2 

502 1460 SAE i 

503 0022 22 C#-WCG NEW INDEX 

504 6272 JMP 2L 

C#-WRITE INDEX AND RETURN 

505 1520 #2M SRO i 

506 7777 -0 

507 6015 JMP 15 CI 

510 0706 WRITE INDEX CO 

511 1426 1I7G 

512 6015 JMP 15 

C REPEAT 

513 6212 JMP 18+ 6 

514 6226 JMP 2A 

C DISPLAY TITLE 

515 0042 #1V SET 2 

516 0000 

517 0061 SET i 1 

520 0140 140 

521 0066 SET i 6 

522 4725 1Z-4000 

523 6530 JMP 1R 

524 0061 SET i 1 

525 0424 424 

526 6530 JMP 1R 

527 6002 JMP 2 

C DISPLAY TITLE 

530 0057 #1R SET 17 

531 0000 

532 1326 LDH I 6 

533 1420 SKO i 

534 6700 6700 
53 5 6017 JMP 17 

536 6712 JMP 1Y 

537 6532 JMP P-5 

C DELETE 

540 1020 #2D LDA i 

541 5757 5757 

542 1073 STA i 13 

543 1073 STA i 13 

544 1000 LDA 

545 0013 13 

546 1660 BCO i 

547 0002 2 

550 4013 STC 13 

551 1013 LDA 13 

552 0471 APO i 

553 6563 JMP 2N 

554 1000 LDA 

555 0013 13 

556 1560 BCL i 



107 



3ISX 


PX.,10 L(M = 611 


P 


CO NT 






557 


0007 




7 


560 


4013 




STC 13 


56 1 


2541 




ADD 2D+1 


56 2 


1053 




STA 13 


56 3 


1020 


#2N 


LDA i 


56 4 


0001 




1 


56 5 


2630 




ADD 2G 


566 


0450 




A2E 


56 7 


4630 




STC 2G 


570 


001 1 




CLR 


571 


4506 




STC 2M+1 


572 


0231 




XSK i 1 1 


573 


6254 




JMP 2H 






CALL DELETED 


574 


0071 




SET i 11 


575 


2777 




2777 


576 


1071 




STA i 1 i 


577 


021 1 




XSK 1 1 


600 


6576 




JMP P-2 


601 


6515 


#1A 


JMP IV C DISPLAY ' 


602 


0415 




KST 


603 


6601 




jMp p-2 


604 


0515 




K8D 


60 5 


1420 




SHQ i 


606 


2200 




2200 


607 


6505 




JMP 2M 


610 


1420 




SKD i 


611 


4500 




4500 C REPEAT 


612 


6513 




JMP IV- 2 


613 


1460 




SAE i 


614 


0012 




12 


615 


6601 




JMP 1A 


616 


6015 




JMP 15 






[KEYBOARD CHANGES 






CFQRWARD ENTRY 


617 


6627 


#1S 


JMP 28 


620 


6254 




JMP 2H 






£ FORWARD PAGE 


621 


0062 


#1Q 


SET I 2 


6 22 


7767 




-10 C CON STAN 


623 


6627 




JMP 28 


624 


0222 




XSK i 2 


625 


6623 




JMP P-2 


62 6 


6254 




JMP 2H 






Z FORWARD 


627 


1020 


#2B 


LDA i 


630 


7767 


#2G 


-10 


631 


1440 




SAE 


632 


001 1 




11 


633 


2406 




ADD 1X+3 C-l 


634 


4630 




STC 2G 


635 


6000 




JMP 






C BACKWARD ENTRY 


636 


6646 


#2C 


JMP 1J 


637 


6254 




JMP 2H 



LAP6 



TITLE 



CBACKWARD PAGE 

108 



USX 


PX, 1 1 


Li 


M = 701 


p 


CO NT 






640 


0062 


#1P 


SET i 2 


641 


7767 




-10 


642 


6646 




JMP 1J 


643 


0222 




XSK i 2 


644 


6642 




JMP P-2 


645 


62 54 




J MP 2H 






C BACK WARD 


646 


1020 


#1J 


LDA i 


647 


0001 




1 


650 


2630 




ADD 2G 


651 


0450 




AZE 


6 52 


4630 




STC 2G 


6 53 


6000 




J MP 






CNUMBER DISPLAY 


654 


0047 


#1T 


SET 7 


655 


0000 







656 


0241 




ROL 1 


657 


4706 




STC 1K+3 


66 


6703 




JMP IK 


661 


1500 




SRO 


662 


0676 




IK- 5 


663 


6701 




JMP 1K-2 CDISPLAY 


664 


0450 




AZE 


66 5 


6673 




JMP P+6 


666 


2001 




ADD 1 CNO LEADING 


667 


1120 




ADA i 


670 


0024 




24 


671 


4001 




STC 1 


672 


6660 




JMP 1T+4 


673 


6713 




JMP 1Y+1 


674 


6703 




JMP IK 


675 


1520 




SRO i 


676 


4210 




4210 


677 


6701 




JMP P+2 


700 


6673 




JMP p-5 






C DISPLAY LAST 


701 


6713 




JMP 1Y+1 


702 


6007 




JMP 7 






CFIX DIGIT 


703 


2706 


#1K 


ADD P+3 


704 


0243 




ROL 3 


705 


1060 




STA i 


706 


0000 




NUM TO DISPLAY 


70 7 


1560 




BCL i 


710 


7761 




7761 


711 


6000 




JMP 






C DISPLAY 


712 


0241 


#1Y 


ROL 1 


713 


1120 




ADA i 


714 


2001 




6A 


715 


4012 




STC 12 


716 


2425 




ADD 1M 


717 


1752 




DSC 12 


720 


1772 




DSC i 12 


721 


1020 




LDA i 


722 


0004 




4 



LAP6 



LAST 



ZEROS 



109 



I sx 


PX# 1 r c 


> LN=771 




p 


CONT 








723 


2001 




ADD 1 




724 


4001 




STC i 




725 


6000 




JMP 








C TITLE TABLE 




72 6 


4124 


#12 


4124 CNA 




727 


4030 




4030 CME 




730 


6725 




6725 E B 




731 


4114 




4114 CN 




732 


2225 




2225 C#B 




733 


3736 




3736 CLK 




734 


4667 


CNO 


4667 CS 




735 


0011 


#1N 


CLR 




736 


4425 




STC 1M EV 


' COOR 


737 


0061 




SET i 1 




740 


0330 




330 CH 


COOR 


741 


1020 




LDA i 




742 


0102 




102 CN 




743 


6713 




JMP lY+1 




744 


1772 




DSC i 12 


CO 


745 


1772 




DSC i 12 




746 


0415 




KST 




747 


6737 




JMP 1N+2 




750 


0515 




KBD 




751 


6015 




JMP 15 
6E=2371 










6A=200j C GRIDS 








76=426 C INDEX 








9J*771 








CLAP6 01 SPLAY 


INDEX 






EADD TELETYPE 


HERE 



LAP6 



AND PRINT INDEX 



110 



PRINT MS>0 LAP6 

VALUE LINE 

5A 1223 240 

5B 1237 254 

5C 1165 200 

5K 1073 101 

5L 1113 124 

5M 1136 147 

5N 1147 160 

5P 1214 230 

5Q 1220 234 

5S 1105 115 

6E 2371 300 

7A 0350 717 

7B 0000 720 

7D 0300 721 

7E 0000 722 

SA 1411 320 

8B 1417 326 

SC 1472 402 

8 J 1650 570 

8K 1637 557 

8L 1453 363 

8M 1544 461 

SN 1552 467 

8P 1531 445 

SR 1523 436 

SS 1666 607 

8T 1520 432 

SU 1676 620 

8V 1574 512 

8W 1562 500 

8X 1501 412 

8Y 1613 532 

8Z 1422 332 

9 J 0771 301 



111 



PRINT MS* 1 LN = 1 



lap6 



p 


CONT 


CLAP6 PRINT MANUSCRIPT 
C CONVERT WITH TELETYPE 
C BLOCK 322 
CQUARTER 2 
O1000 


1000 


0700 


RDC 7E 


1001 


3335 


3I7D+35 


1002 


0011 


CLR 


1003 


3377 


ADD 1377 CBN 


1004 


1620 


BSE i 


1005 


6000 


6000 


1006 


5240 


STC 5B+1 


1007 


3376 


ADD 1376 CRDC o 


1010 


1040 


STA 


1011 


1246 


5B+7 


1012 


1620 


BSE i 


1013 


0020 


i CRDC i u 


1014 


5237 


STC SB 


1015 


0065 


SET i 5 


1016 


2371 


6E 


1017 


0063 


SET i 3 


1020 


0773 


9J+2 


1021 


1005 


LDA 5 CIST LN 


1022 


0470 


AZE i 


1023 


7031 


JMP P+6 


1024 


1120 


ADA i 


1025 


7776 


-1 


1026 


0470 


AZE i 


1027 


0017 


COM 


1030 


5067 


STC 5K-4 CREQUEST 


1031 


3224 


ADD 5A+1 CI 


1032 


5453 


STC 8L CPAGE 


1033 


1025 


LDA i 5 


i 034 


0450 


AZE 


1035 


5102 


STC 5K+7 C2ND LN 


1036 


1025 


LDA i S 


1037 


1460 


SAE i 


1040 


7777 


7777 


1041 


7044 


JMP P+3 


1042 


1020 


LDA i 


1043 


6312 


6312 


1044 


1043 


STA 3 


1045 


1025 


LDA i 5 


1046 


1063 


STA i 3 


1047 


1025 


LDA i 5 


1050 


1063 


STA i 3 


1051 


1025 


LDA i 5 


1052 


1063 


STA i 3 CMOVE NAME 


1053 


1020 


LDA i 


1054 


7777 


-0 


1055 


1063 


STA i 3 


1056 


0075 


SET i 15 


1057 


0701 


RCG 7E 


1060 


0063 


SET i 3 


1061 


7401 


7401 


1062 


0065 


SET i 5 



112 



PRINT MS*2 LN=71 



LAP6 



p 


CONT 






1063 


7776 




-1 


1064 


1000 




LDA 


1065 


1226 




5A+3 C PRESENT LN 


1066 


1460 




SAE i 


1067 


0000 




CIST LN 


1070 


7105 




JMP 5$ 


1071 


3224 




ADD 5A+1 CI 


1072 


5472 




STC SC CLINE it 


1073 


7422 


#5K 


JMP 6Z CPAGE PRESET 


1074 


7501 




JMP 8X CLINE FEED 


1075 


0073 




SET i 13 


1076 


7677 




-100 


1077 


1000 




LDA 


1100 


1226 




5A+3 


1101 


1460 




SAE i 


1102 


7776 




7776 


1103 


7113 




JMP 5L CPRINT LINE 






CDONE 


1104 


7416 




JMP 8B-1 CWAIT FOR I 






CPARTIAL PRINT 


1105 


7223 


#5$ 


JMP 5A CUP LINE 


1 106 


1020 




LDA i 


1107 


0012 




12 


1110 


1423 




SHD S 3 


1111 


7064 




JMP 5K-7 


1112 


7110 




JMP P-2 






CPRINT LINE 


1113 


7223 


#5L 


JMP 5A CUP LINE 


1114 


0042 




SET 2 


1115 


0003 




3 


1 116 


1322 




LDH i 2 CIST CHARAC 


1 Hi 


1420 




SHD i 


i 120 


7700 




7700 


1 121 


7411 




JMP 8A CDONE 


1122 


1420 




SHD i 


1123 


2200 




2200 


1 124 


7136 




JMP 5M 


1125 


1420 




SHD i 


1126 


6600 




6600 CQ 


1127 


7136 




JMP 5M 


1130 


7560 




JMP 8W-2 CSPACE4 


1131 


7560 




JMP 8W-2 


1132 


7560 




JMP 8W-2 


1133 


7560 




JMP 8W-2 


1 134 


0073 




SET i 13 


1135 


7703 




-74 


1136 


1323 


#5M 


LDH i 3 


1137 


1420 




SHD i 


1140 


1200 




1200 


1141 


7214 




JMP 5P CEOL 


1142 


7562 




JMP 8W CPRINT CHAR 


1143 


1303 




LDH 3 


1 144 


1420 




SHD % 


1145 


1400 




1400 


1 146 


7165 




JMP 5C CCOUNT TO NE 


1147 


0233 


#5N 


XSK i 13 



KEY 



SPACE 



113 



PRINT MS*3 LN=161 



LAP6 



p 


CONT 






1 150 


7136 




JMP 5M 


1 151 


1323 




LDH i 3 


1 152 


1420 




SHD i 


1 153 


1200 




1200 


1 154 


7214 




JMP 5P 






CTT 


LINE CONTINUES PAST PAGE BR 


1 155 


0225 




XSK i 5 


1 156 


7160 




JMP P+2 


1 157 


7422 




JMP 8Z CPA6E PRESET 


1 160 


7501 




JMP BX 


1 161 


0073 




SET i 13 


1 162 


7677 




-100 


1 163 


1303 




LDH 3 


1 164 


7142 




JMP 5M+4 






CCQIHMT TO NEXT SPACE OR EOL. DO 






OF 


TT LINE. 


1 165 


0064 


*5C 


SET i 4 


1 166 


0001 




1 


1 167 


0042 




SET 2 


1 170 


0003 




3 


1 171 


1322 




LDH i 2 


1 178 


1420 




SHD 1 


1 173 


1200 




1200 


1174 


7201 




JMP P+5 


1 175 


0224 




XSK i A 


1 176 


1460 




SAE i 


t 177 


0014 




14 


1200 


7171 




JMP P-7 


1201 


1000 




LDA 


1202 


0013 




13 


1203 


2004 




ADD 4 


1204 


0451 




APO 


1205 


714? 




JMP 5N CWILL FIT 


1206 


1020 




LDA i 


1207 


7676 




-101 


1210 


2004 




ADD 4 


1211 


0471 




APO i 


1212 


7147 




JMP 5N CWONT FIT ON ONE LIN 


1213 


7151 




JMP 5N+2 CPUT ON NEXT LINE 






CEOL 


1214 


1000 


#5P 


LDA 


1215 


1226 




5A+3 


1216 


3224 




ADD 5A+1 CI 


1217 


5472 




STC 8C CLINE 


1220 


0225 


#5Q 


XSK i 5 


1221 


7074 




JMP 5K+1 


1222 


7073 




JMP 5K 






CMS 


ADDRESS CHECK AND UP LINE N 


1223 


1020 


#5A 


LDA i 


1224 


0001 




1 t CONSTANT 


1225 


1160 




ADM i 


1226 


0000 




C CURRENT LN 


1227 


1000 




LDA 


1230 


0003 




3 


1231 


1560 




BCL i 


1232 


4000 




4000 



NOT BREAK WORDS AT END 



ANYWAY 



llU 



PRINT MS, A LN=250 



LAP6 



p 
1233 
1234 
1235 
1236 
1237 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 

1376 
1377 



CONT 
1120 
4400 
0451 
6000 
0015 
0710 
3240 
1120 
1001 
0451 
5247 
0015 
7777 
3240 
3224 
5240 
2003 
1120 
7377 
4003 
6000 

0700 
0350 



ADA i 
-3377 
APO 

JMP C STILL IN QUARTER 6 
#5B READ TAPE 
QUARTER 6 
ADD P-l 
ADA i 
1001 
APO 

STC p+2 
READ TAPE 
71777 
ADD 5B+1 
ADD 5A+1 
STC SB+1 
ADD 3 
ADA i 
-400 
STC 3 
JMP 
B1376 
RDC 7B 
7A 

6E=2371 
9J«771 

CLAP6 PRINT MANUSCRIPT 
CADD TELETYPE HERE 



115 



LIST>0 










VALUE 


LIME 


VALUE 


LINE 


1L 


0317 


347 


5H 


1 177 


1250 


IP 


0457 


515 


5J 


1117 


1165 


IT 


0544 


606 


5K 


1231 


1303 


2A 


0033 


30 


5L 


1254 


1327 


2B 


0046 


44 


5M 


1302 


1355 


2C 


0065 


64 


5N 


1314 


1367 


20 


01 17 


120 


5Q 


1015 


1061 


2£ 


0126 


131 


5R 


1034 


1100 


2F 


0251 


276 


5S 


1170 


1241 


2G 


0735 


1020 


5T 


1335 


1412 


2H 


0164 


175 


6A 


2642 


1423 


2J 


0123 


125 


6B 


2000 


1417 


2K 


0152 


161 


6C 


2700 


1424 


2L 


0706 


766 


60 


2400 


1420 


2M 


0134 


140 


6E 


2432 


1421 


2N 


0722 


1004 


6F 


2352 


1422 


2P 


0635 


71 1 


66 


2740 


1425 


2Q 


0272 


317 


7A 


0350 


2045 


2R 


0303 


330 


7B 


0000 


2046 


2S 


0307 


335 


10 


0300 


2047 


2T 


0677 


756 


7£ 


0000 


2050 


2U 


01 15 


115 


oA 


141 1 


1446 


2V 


0137 


144 


3B 


1417 


1454 


2W 


0232 


254 


3C 


1472 


1530 


2X 


0511 


552 


8J 


1650 


1716 


2Y 


0200 


21 1 


8K 


1637 


1705 


2Z 


0022 


16 


8L 


1453 


1511 


3 A 


0314 


344 


8M 


1544 


1607 


33 


0351 


402 


SN 


1552 


1615 


3C 


0372 


424 


8P 


1531 


1573 


3D 


0403 


436 


SQ 


1321 


1375 


3E 


0416 


452 


8R 


1523 


156 4 


3F 


0454 


512 


8S 


166 6 


1735 


3G 


0464 


523 


ST 


1520 


1560 


3K 


047 5 


53 5 


8U 


1676 


1746 


3J 


0512 


553 


8V 


1574 


1640 


3K 


0540 


601 


8W 


1562 


1626 


3L 


0346 


376 


3X 


1501 


1540 


4 A 


0203 


215 


SY 


1613 


1660 


48 


0207 


222 


SZ 


1422 


1460 


4C 


0624 


677 


9J 


0771 


1030 


40 


0610 


662 


9M 


0557 


622 


4£ 


0230 


251 


9N 


0563 


627 


AF 


0212 


226 








AG 


0215 


232 








AH 


0217 


235 








AJ 


0222 


241 








AK 


0225 


245 








4L 


0247 


273 








AM 


0641 


716 








4N 


0604 


655 








4P 


0243 


266 








4Q 


0567 


636 








4R 


0576 


646 








5A 


1164 


1234 








5B 


1001 


1044 








5C 


1046 


1112 








5E 


1074 


1142 








5F 


1141 


1210 









LAP6 



116 



L,IST*t LN=1 



LAP6 



CONT 





CLAP6 LIST 






CBLOCK 333 - Ql 






C BLOCK 327 - 02 






CBLOCK 335 - 03 






CBLOCK 330 - Q0# SAME AS CONVERT 






CDO 


MOT CHANGE LINES WITHOUT ALSO 


CHANGING CONVERT 




CPASS II 








815 




15. 0701 




RC6 7E 




16 1310 




1 I7D+10 CDISPLAY 




17 0016 




NOP 




20 0720 




RDC i 7E 




21 2347 




217D+47 CBIN TO Q2 




22 6314 


#2Z 


JMP 3A 




23 0435 




KST i 




24 6610 




JMP 4D 




25 0044 




SET 4 




26 0003 




3 




27 6033 




JMP 2A 




30 6022 




JMP 2Z 




31 6677 




JMP 2T 




32 6022 




JMP 2Z 






CLINE DECODE 




33 0057 


#2A 


SET 17 




34 0000 









35 0011 




CLR 




36 4511 




STC 2X 




37 4200 




STC 2Y 




40 0066 




SET i 6 




41 0247 




4L 




42 0072 




SET i 12 




43 7774 




-3 CCONSTANT 




44 0073 




SET i 13 




45 6135 




JMP 2M+1 






C CHARACTER CHECK 




46 1323 


#2B 


LDH i 3 




47 0070 




SET i 10 




50 4243 




4P+4000 




51 1430 




SHQ i 10 




52 6126 




JMP 2E CCOMMENT 




53 1430 




SHD i 10 




54 6203 




JMP 4A Cb 




55 1430 




SHD i 10 




56 6132 




JMP 2E+4 C= 




57 1430 




SHD i 10 




60 6137 




JMP 2V Ct 




61 1430 




SHD i 10 




62 6207 




JMP 48 C77 




63 1430 




SHD i 10 




64 6123 




JMP 2J Cu 






C CHECK NUMBER 




6 5 6404 


#2C 


JMP 3D+1 




66 6251 




JMP 2F 




67 6416 




JMP 3E 




70 6164 




JMP 2H 




71 1620 




BSE i 





117 



LIST* 2 LN = 71 



LAP6 



p 


CO NT 






72 


0300 




ROR 


73 


4075 




STC P+2 


74 


1011 




LDA 11 


75 


0450 




ROTATE N 


76 


0451 




APO 


77 


6115 




JMP 2U 






CUNDEFINED 


100 


1000 




LOA 


10! 


0200 




2Y 


102 


0303 




ROR 3 


103 


1361 




STH i 1 


104 


1303 




LDH 3 


105 


1361 




STH i 1 


106 


1000 




LDA 


107 


0317 




IL 


110 


1061 




STA i 1 


111 


1020 




LDA i 


112 


7777 




-0 


113 


1061 




STA i 1 


114 


6475 




J MP 3H 


115 


1010 


#2U 


LDA 10 


116 


6013 




JMP 13 






ESPECIAL CHARACTER 


1 17 


1120 


#2D 


ADA i 


120 


6243 




2 W+ 6000+1 1 


121 


4122 




STC P+l 


122 


0140 


#2J 


JUMP TO DISPATCHER 


123 


1020 


LDA I 


124 


0010 




10 


125 


6013 




JMP 13 






£ COMMENT* EQUALITY 


126 


1324 


#2£ 


LDH i 4 


127 


1460 




SAE i 


130 


0066 




66 


131 


0237 




XSK i 17 


132 


6464 




JMP 3G 


133 


6017 




JMP 17 






CBETA 13 RETURN 


134 


0017 


#2M 


COM 


135 


2511 




ADD 2X 


136 


6036 




JMP 2A+3 






CTEXT 


137 


6557 


#2V 


JMP 9M 


140 


7000 




JMP 1000 CLIST 


141 


6512 




JMP 3 J CTEXT COUNT 


142 


6147 




JMP p+5 Ci 


143 


6152 




JMP 2K CEOL 


144 


6160 




JMP 2K+6 C77 


145 


6677 




JMP 2T'C2 CHARS 


146 


6141 




JMP 2V+2 






C* = 


71* END TEXT 


147 


0233 




XSK i 13 


150 


6132 




JMP 2E+4 CNO ASSIGNMENT 


151 


6131 




JMP 2E+3 






CEOL IN TEXT 



118 



LISTj 


►3 LN=161 




p 


CO NT 








152 


0072 


#2K 


SET 


i 12 


153 


6142 




JMP 


2V+3 


154 


6314 




J MP 


3A CCHECK MS 


155 


0233 




XSK 


i 13 


156 


6523 




JMP 


3J+11 


157 


6145 




JMP 


2V+6 CASSIGN 






C77 


IN TEXT 


160 


0233 




XSK 


i 13 


161 


6207 




JMP 


43 CNO ASSI 


16 2 


6677 




JMP 


2T 


163 


6207 




JMP 


4B 






CNUMBERi 


» NOT TAG 


164 


1303 


#2H 


LDH 


3 


165 


1420 




SHD 


i 


166 


1400 




1400 


167 


6372 




JMP 


3C 


170 


6404 




JMP 


30+ 1 


171 


6173 




JMP 


p+2 


172 


6167 




JMP 


p-3 


173 


1020 




LDA 


i 


174 


3777 




-4000 C CONSTANT 


175 


1140 




ADM 




176 


0003 




3 




177 


1020 




LDA 


i 


200 


0000 


#2Y 


NUMBER 


201 


0303 




ROR 


3 


202 


6013 


CB 


JMP 


13 


203 


6351 


#4A 


JMP 


3B 


204 


6557 




JMP 


9M 


205 


6017 




JMP 


17 CLIST 


206 


6567 




JMP 


4Q £ CONVERT 






C77- 


-PREPARE SAVE BIN 


207 


6557 


#48 


JMP 


9M 


210 


7400 




JMP 


1400 CLIST 


211 


6576 


Ci 


JMP 


4R CCONVERT 


212 


1020 


#4F 


LDA 


i 


213 


0020 




20 


C CONSTANT 


214 


6013 


CP 


JMP 


13 


215 


2457 


#4G 


ADD 


IP 


216 


6013 


C- 

#4H 


JMP 


13 


217 


0073 


SET 


i 13 


220 


6134 




JMP 


2M 


221 


6046 


ci 


JMP 


2B 


222 


2511 


#4J 


ADD 


2X 


223 


0303 




ROR 


3 


224 


6036 




JMP 


2A+3 






CTAG 




225 


6372 


#4K 


JMP 


3C 


226 


1323 




LDH 


i 3 


227 


6046 




JMP 


2B 






CEOL 





LAP6 



119 



LIST* 4 LN=251 



LAP6 



p 


CO NT 






230 


0237 


#4E 


KSK i 17 


231 


6017 




JMP 17 






[DISPATCHER 


232 


6230 


#2W 


JMP 4E 


233 


6046 




JMP 2B CD 


234 


6046 




JMP 2B 


235 


62 1 2 




JMP AF 


23 6 


6215 




JMP 4G 


237 


6217 




JMP 4H 


240 


6044 




JMP 2B-2 


241 


6222 




JMP 4J 


242 


6225 




JMP 4K 






[CHARACTER TA 


243 


0022 


#4P 


0022 


244 


6665 




6665 


24 S 


6170 




6170 


246 


7762 




7762 






CSAVE LETTERS 


247 


0000 


#4L 





2S0 


0000 











C CHECK LETTER 


251 


1 120 


#2F 


ADA i 


2 52 


7765 




-12 


253 


0451 




APO 


254 


6117 




JMP 2D 


255 


1303 




LDH 3 


256 


1366 




STH i 6 


257 


0232 




XSK i 12 


2 60 


6046 




JMP 2B 


261 


0246 




ROL 6 


262 


2247 




ADD 4L 


2 63 


0066 




SET i 6 


264 


7700 




6A-6G-1 


265 


0072 




SET i 12 


2 66 


2641 




6A-1 


26 7 


0226 




KSK I 6 


270 


6272 




JMP 2Q 


271 


6040 




JMP 28-6 


272 


1472 


#2Q 


SAE i 12 


273 


6267 




JMP 2Q-3 


274 


1020 




LDA i 


275 


0077 




6G-6A+1 


276 


2006 




ADD 6 


277 


1120 




ADA i 


300 


7740 




6A-6C-1 


301 


0471 




APO i 


302 


6307 




JMP 2S 


303 


1 120 


#2R 


ADA i 


304 


0037 




6C-6A+1 


305 


0245 




ROL 5 


306 


6013 




JMP 13 






CSUBSTITUTE 


307 


1120 


#2S 


ADA i 


310 


2737 




6G-1 


311 


4006 




STC 6 


312 


1006 




LDA 6 



120 



LIST* 5 LN-341 



LAP6 



p 


CONT 






313 


6013 




JMP 13 






C CONVERT SUBROUTINES 






CMS 


ADDRESS CHECK 


314 


1020 


#3A 


LDA I 


315 


0001 




1 CCONSTANT 


316 


1160 




ADM i 


317 


0000 


#1L 





320 


1000 




LDA 


321 


0003 




3 


322 


1560 




BCL i 


323 


4000 




4000 


324 


1120 




ADA i 


325 


4400 




-3377 


326 


0451 




APO 


327 


6000 




JMP 


330 


0720 




RDC i 7B 


331 


6350 




6I7A 


332 


2331 




ADD P-l 


333 


1120 




ADA i 


334 


1001 




1001 


335 


0451 




APO 


336 


4340 




STC P+2 


337 


0700 




RDC 7B 


340 


7077 




7177 


341 


2331 




ADD P-10 


342 


2315 




ADD 3A+1 


343 


4331 




STC p-12 


344 


2003 




ADD 3 


345 


1120 




ADA i 


346 


7377 


#3L 


-400 


347 


4003 




STC 3 


350 


6000 


[B 


JMP 


351 


0050 


#38 


SET 10 


3 52 


0000 







353 


6372 




JMP 3C 


354 


6401 




JMP 3D-2 


355 


6362 




JMP P+5 


356 


6372 




JMP 3C 


357 


6404 




JMP 3D+1 


360 


6362 




JMP P+2 


361 


6356 




JMP P-3 


362 


1000 




LDA 


363 


0200 




2Y 


364 


0303 




ROR 3 


365 


1560 




BCL i 


366 


4000 




4000 


367 


4457 




STC IP 


370 


6464 




JMP 3G 


371 


6010 




JMP 10 






C SPACE AVOID 


372 


0051 


#3C 


SET 11 


373 


0000 







374 


1323 




LDH i 3 


375 


1420 




SHD i 


376 


1400 




1400 



121 



LIST* 6 LN=*431 



LAP6 



p CONT 








377 6374 




JMP 


3C+2 


400 6011 




JMP 


11 




CNUMBER 


CHECK 


401 0011 




CLR 




402 4200 




STC 


2Y 


403 1303 


#30 


LDH 


3 


404 1120 




ADA 


i 


405 7766 




-11 




406 0471 




APO 


i 


407 6000 




JMP 





410 1303 




LDH 


3 


411 2200 




ADD 


2Y 


412 0243 




ROL 


3 


413 4200„ 




STC 


2Y 


414 0220 




KSK 


i 


415 6000 




JMP 







C SYMBOL 


CHECK 


416 1323 


#3£ 


LDH 


i 3 


417 1120 




ADA 


i 


420 7754 




-23 




421 0451 




APO 




422 6000 




JMP 





423 1120 




ADA 


i 


424 7745 




-32 




425 0471 




APO 


i 


42 6 6000 




JMP 





427 1000 




LDA 




430 0200 




2Y 




431 0470 




AZE 


i 


432 6000 




JMP 





433 0303 




ROR 


3 


434 1260 




MUL 


i 


435 0032 




32 




436 1120 




ADA 


i 


437 1722 




63-32-24 


440 4010 




STC 


10 


441 1303 




LDH 


3 


442 2010 




ADD 


10 


443 4010 




STC 


10 




CFIND MARK REGISTER 


444 1303 




LDH 


3 


445 1120 




ADA 


i 


446 2354 




6D-24 


447 401 1 




STC 


11 


450 2200 




ADD 


2Y 


451 0303 




ROR 


3 


452 0220 




XSK 


i 


453 6000 




JMP 







CUP 


P 




454 1020 


#3F 


LDA 


i 


455 0001 




1 




456 1160 




ADM 


i 


457 0020 


#1P 


20 




460 1560 




8CL 


i 


461 4000 




4000 


462 4457 




STC 


IP 



122 



LIST* 7 LN*52i 



LAP6 



p 


CONT 






463 


6000 




JMP 






CFIND EOL 


464 


0051 


#36 


SET 11 


465 


0000 







466 


1020 




LDA i 


467 


0012 




12 


470 


1403 




SHD 3 


471 


6011 




JMP 11 


472 


1423 




SHD i 3 


473 


6011 




JMP 11 


474 


6472 




JMP P-2 






C ERROR TABLE ADDRESS C: 


475 


1020 


#3H 


LDA i 


476 


0004 




4 


477 


2001 




ADD 1 


500 


4502 




STC P+2 


501 


1440 




SAE 


502 


0452 




NEXT SLOT STILL ZE 


503 


0451 




APO 


504 


6000 




JMP 


505 


2001 




ADD 1 CSET 1 BACK 


506 


2043 




ADD 2B-3 C-3 


507 


4001 




STC 1 


510 


6000 




JMP 






CTEXT COUNT 


511 


0000 


#2X 


CFOR ASSIGN 


512 


00 52 


#3J 


SET 12 


513 


0000 







514 


0073 




SET i 13 


515 


7775 




-2 C CONSTANT 


516 


0074 




SET i 14 


517 


4510 




2X-1+4000 


520 


1020 




LDA i 


521 


1414 




1414 


522 


4511 




STC 2X 


523 


1323 




LDH i 3 


524 


1420 




SHD i 


525 


7100 




7100 C* 


526 


6543 




JMP 3K+3 


527 


1420 




SHD i 


530 


7700 




7700 


531 


6541 




JMP 3K+1 


532 


1374 




STH i 14 


533 


1420 




SHD i 


534 


1200 




1200 


535 


6542 




JMP 3K+2 


536 


0233 




XSK i 13 


537 


6523 




JMP 3J+11 


540 


0232 


#3K 


XSK i 12 


541 


0232 




XSK i 12 


542 


0232 




XSK i 12 


543 


6012 




JMP 12 






CPASS PRESET 


544 


1020 


#1T 


LDA i 


545 


6350 




6!7A 


546 


4331 




STC 1L+12 



CHECK 



123 



.ISTj 


10 LN-611 LAP6 


p 


CONT 




547 


4317 


STC 1L 


550 


2213 


ADO 4F+1 


551 


4457 


STC IP 


552 


0063 


SET i 3 


553 


7401 


7401 


554 


0062 


SET i 2 


555 


1017 


1017 


556 


6000 


JMP 
CCHECK LIST 


557 


1520 


#9M SRO i 


560 


7777 


7777 


561 


0220 


XSK i CCONVERT 


56 2 


6000 


JMP CLIST 
CLIST- PASS II 


56 3 


6544 


#9N JMP IT 


564 


0720 


RDC i 7E 


56 5 


2327 


2I7D+27 


566 


7001 


JMP 1001 
C DO NOT DISTURB AMY LIMES Bl 
CLIST TEXT 
CCHECK PARTIAL 


567 


1000 


#40 LDA 


570 


0017 


17 CSR RETURN 


571 


1460 


SAE i 


572 


7174 


JMP 5S+4 


573 


6641 


JMP 4M "CLIST 


574 


6576 


JMP 4R 
C SEARCH- PARTIAL LIST 


575 


6314 


JMP"3A 


57 6 


6512 


#4R JMP 3 J CTEXT COUNT 


577 


6604 


JMP 4iM C71 RETURN 


600 


6610 


JMP 4D CEOL RETURN 


601 


7417 


JMP 8B C77 RETURN 


602 


6454 


JMP 3F C2 CHARACTERS-UP 


603 


6576 


JMP 4R 
C71 RETURN 


604 


6464 


#4N JMP 3G CFIND EOL 


605 


0233 


XSK i 13 


606 


7223 


JMP 5K-6 CNO ASSIGNMENT 


607 


7175 


JMP 5S+5 C ASSIGN 
CEOL RETURN 


610 


0233 


#4D XSK i 13 


611 


6624 


JMP 4C CEOL LEFT 


612 


6454 


JMP 3F CEOL RIGHT-UP P 


613 


1000 


LDA 


614 


0317 


1L C PRESENT LN 


615 


1440 


SAE 


616 


1226 


5K-3 C REQUESTED 


617 


6575 


JMP 4R-1 CNOT YET 


620 


1020 


LDA i 


621 


6641 


JMP 4M 


622 


5243 


STC 5L-11 


623 


7231 


JMP 5K 'CPAGE PRESET 
CEOL LEFT CHARACTER 


624 


1000 


#4C LDA 


62 5 


0317 


1L 



BEFORE THIS POINT 



FOR 71 



12fc 



LIST* 11 LN=701 



LAP6 



p 


CONT 






626 


1440 




SAE 


627 


1226 




5K-3 


630 


6635 




JMP 2P CNOT YET 


631 


1020 




LDA i 


632 


6722 




JMP 2N 


633 


5243 




STC SL-U 


634 


7231 




JMP 5K CPAGE PRESET 






CEOL BUT NOT PRINTING 


635 


63 i 4 


#2P 


JMP 3A CCHK MS 


636 


0072 




SET i 12 


637 


6577 




JMP 4R+1 


640 


6523 




JMP 3J+11 C CONTINUE TEXT CO 






ELI ST TEXT 


641 


6512 


#4M 


JMP 3 J CTEXT COUNT 


642 


6677 




JMP 2T C71 


643 


6706 




JMP 2L CEOL 


6 44 


7400 




JMP 1400 C77 


645 


7317 




JMP 8Q-2 C2 CHARACTERS-PRIN 


646 


7560 




JMP 8W-2 CSPACE 


647 


6454 




JMP 3F CUP P 


650 


1014 




LDA 14 CCONTENTS 


651 


7523 




JMP 8R CPRINT CONTENTS 


652 


1000 




LDA 


653 


0002 




2 CSAVE 2 


654 


4675 




STC 2T-2 


6 55 


0225 




KSK i 5 CCHK LINES 


656 


6663 




JMP P+5 






CPAGE END 


657 


7422 




JMP 8Z CPAGE PRESET 


660 


0062 




SET i 2 


661 


5334 




5T-4000 


662 


7613 




JMP 8Y CLA8EL 


66 3 


7501 




JMP 8X C RETURN 


664 


1000 




LDA 


66 5 


0317 




1L C PRESENT LN 


666 


1440 




SAE 


667 


1307 




5M+5 


670 


6672 




JMP P+2 


671 


7417 




JMP 8B CEND LIST 


672 


3456 




ADD 8L+3 CI 


673 


5472 




STC 8C CLN FOR PAGE HEADING 


674 


0062 




SET i 2 


675 


0000 




RESET 


676 


6641 




JMP 4M 






£71 


RETURN WHILE PRINTING 


677 


6464 


#2T 


JMP 3GCFIND EOL 


700 


1020 




LDA i 


701 


6033 




JMP 2A C RESTORE 


702 


5243 




STC 5L-11 


703 


0233 




KSK i 13 


704 


7254 




JMP 5L CNO ASSIGNMENT- JUST 1 


705 


7245 




JMP 5L-7 CASSIGNMENT 






CEOL WHILE PRINTING 


706 


7317 


#2L 


JMP 3Q-2 CPRINT P 


707 


7560 




JMP 8W-2 CSPACE 


710 


0233 




KSK 1 13 



PRINT LINE 



125 



LIST* 12 LN=771 



LAP6 



p 


CO NT 






71 1 


6716 




JMP P+5 CEOL IN LEFT HALF 


712 


1020 




LDA i CEOL RIGHT 


713 


6641 




JMP 4M 


714 


5243 




STC 5L- 1 1 


715 


7247 




JM? 5L-5 CUP P# PRINT 2 CI 






CEOL LEFT HALF 


716 


1020 




LDA i 


717 


6722 




JMP 2N 


720 


5243 




STC 5L-11 


721 


7250 




JMP 5L-4 CPRINT U200t, D< 






C RIGHT CHAR AFTER EOL 


722 


1323 


#2N 


LDH i 3 


723 


1420 




SHO i 


724 


7100 




7100 


725 


6735 




JMP 2G CEND TEXT 


72 6 


0072 




SET i 12 


727 


6642 




JMP 4M+1 


730 


0074 




SET i 14 


731 


051 1 




2X 


732 


0073 




SET i 13 


733 


7776 




-1 C RESET COUNT 


734 


6524 




JMP 3J+12 C CONTINUE TEXT 






£71 


FOLLOWS LEFT EDL 


73 5 


6454 


#2G 


JMP 3F CUP P 


736 


6464 




JMP 3G CFIND EOL 


737 


1020 




LDA i 


740 


6033 




JMP 2A C RESTORE 


741 


5243 




STC 5L-11 


742 


7254 




JMP 5LCNG ASSIGN, PRINT 
8771 






CLABEL TABLE 


771 


0000 


#9J 





772 


0000 







773 


63.12 




6312 


774 


7777 




-0 


775 


7777 




-0 


776 


7777 




-0 


777 


7777 




-0 






CLIST 






C8LKS 7D+27* 7D+35 






[QUARTERS 2, 3 








BiOOO 


1000 


656 7 




JMP 4Q CTEXT 


1001 


1000 


#5B 


LDA 


1002 


0771 




9J 


1003 


0450 




AZE 


1004 


7177 




JMP 5H C PARTIAL 






CPACK SYMBOLS 


1005 


0070 




SET i 10 


1006 


2431 




6E-1 C2431 


1007 


0062 




SET i 2 


1010 


1377 




1377 CLN TABLE 


101 1 


0064 




SET i 4 


1012 


0024 




24 CSET LETTER 


1013 


0065 




SET i 5 


1014 


7745 




-32 



CHARS, CHK MS 



NOT UP P 



LINE 



126 



LIST* 13 LN=*1061 



LAP6 



p 


CO NT 








1015 


1022 


#5Q 


LDA 


i 2 CLN 


1016 


0470 




AZE 


i 


1017 


7034 




JMP 


5R 


1020 


1020 




LDA 


i 


1021 


0100 




100 




1022 


2004 




ADD 


4 


1023 


1070 




STA 


i 10 C#-L 


1024 


1020 




LDA 


I 


1025 


0400 




400 




1026 


2002 




ADD 


2 


1027 


4016 




STC 


16 


1030 


1016 




LDA 


1 6 CVALUE 


1031 


1070 




STA 


i 10 


1032 


1002 




LDA 


2 CLINE 


1033 


1070 




STA 


i 10 


1034 


0224 


#5R 


XSK 


i 4 CUP LETTER 


1035 


0225 




XSK 


i 5 


1036 


7015 




JMP 


5Q 


1037 


1020 




LDA 


i 


1040 


0100 




100 




1041 


1140 




ADM 


CUP NUMBER 


1042 


1021 




5Q+4 


1043 


1460 




SAE 


i 


1044 


1200 




1200 


1045 


7011 




JMP 


5Q-4 


1046 


1000 


#5C 


LDA 




1047 


2432 




6E C 1 ST ENTRY 


1050 


0470 




AZE 


i 


1051 


7202 




JMP 


5H+3 CNO SYMBOL TABL! 






CPRINT SYMBOL TABLE 


1052 


0011 




CLR 




1053 


1070 




STA 


i 10 


1054 


0210 




XSK 


10 


1055 


7053 




JMP 


p-2 


1056 


0700 




RDC 


7E 


1057 


3335 




317D+35 


1060 


7422 




JMP 


8Z CPAGE PRESET 


1061 


0074 




SET 


i 14 


1062 


1163 




5A-1 


i 


1063 


1034 




LDA 


i 14 


1064 


4016 




STC 


16 


1065 


1036 




LDA 


i 16 


1066 


0470 




AZE 


i 


1067 


7074 




JMP 


5E 


1070 


7611 




JMP 


8Y-2 


1071 


1520 




SRO 


i 


1072 


3567 




3567 


1073 


7063 




JMP 


P-10 






CHEADING FINISHED 


1074 


0065 


#5E 


SET 


i 5 


1075 


7704,. 




-73 


CLINESIPAGE 


1076 


7501 




JMP 


8X CKST AND CARRIAGE 


1077 


0074 




SET 


i 14 


1100 


1164 




5A 




1101 


1014 




LDA 


14 


1 102 


4016 




STC 


16 



RETURN 



127 



L I S Tj 


14 LN=ii5l 






p 


CQNT 










1 103 


1336 




LDH 


i 16 




1 104 


0470 




AZE 


i 




I 105 


7137 




JMP 


5F-2 




} 106 


7117 




JMP 


5J 




I 107 


1034 




LDA 


I 14 




1 110 


4016 




STC 


16 




1111 


1336 




LDH 


i 16 




1 112 


0470 




AZE 


i 




1 113 


7134 




JMP 


5F-5 




1 114 


7560 




JMP 


8W-2 


£3 SPACES 


1 115 


756 




JMP 


SW-2 




1116 


7560 




JMP 


8W-2 




1 117 


1316 


#5J 


LDH 


16 




I 120 


7562 




JMP 


8W 


£# 


1 121 


1336 




LDH 


i 16 




1 122 


7562 




JMP 


8W 


[LETTER 


1 123 


7560 




JMP 


3W-2 


C SPACE 


1 124 


1036 




LDA 


i 16 




1 125 


7523 




JMP 


8R 


C VALUE 


1 126 


7560 




JMP 


8W-2 


t SPACE 


1 127 


1036 




LDA 


i X6 




1 130 


7321 




JMP 


8Q 


CLINE 


1 131 


1000 




LDA 






1 132 


0016 




16 






t 133 


1054 




STA 


14 




1 134 


1520 




SRO 


i 




1 135 


3567 




3567 




1 136 


7107 




JMP 


5J-10 


1 137 


0225 




KSK 


i 5 




1 140 


7076 




JMP 


5E+2 








C TABLE FINISHED 


1 141 


1020 


#5F 


LDA 


i 




1 142 


3416 




3416 CBELL 


1 143 


7566 




JMP 


SW+4 




1 144 


0700 




RDC 


7E 




1 145 


6337 




6I7D+37 CMNEMONICS 


1 146 


3456 




ADD 


8L+3 


CI 


1 147 


5472 




STC 


8C 




1 ISO 


0074< 




SET 


i 14 




1 151 


3241 




6A-] 


1 + 400 




1 152 


0064 




SET 


i 4 




1 153 


2641 




6A-1 


I 




1 154 


1034 




LDA 


i 14 




1 155 


1064 




STA 


i 4 




1 156 


0214 




XSK 


14 




1 157 


7154 




JMP 


P-3 




1 160 


0065 




SET 


I 5 




1 161 


7776 




-1 






1 162 


7424 




JMP 


8Z+2 




1 163 


7232 




JMP 


5K+1 








£ COLUMN 


ADDRESSES 


1 164 


6431 


#5A 


6£-< 


4000 




1165 


6712 




6E-- 


4000+261 


1 166 


7173 




6£-< 


4000+542 


1 167 


7454 




6E-« 


4000+1023 






C PARTIAL LIST 



LAP6 



128 



LIST/ 15 LN=1241 



LAP6 



p 


CO NT 






1 170 


6314 


#5S JMP 


3A 


I 171 


0044 


SET 


4 


i 172 


0003 


3 




\ 173 


6033 


JMP 


2A 


I 174 


7223 


JMP 


5K-6 CNO ASSIGN 


1 175 


6454 


JMP 


3F 


I 176 


7223 


JMP 


SK-6 CASSIGN 


1 177 


1460 


#5H SAE 


i 


1200 


0001 


1 




1201 


7206 


JMP 


p+5 


1202 


1020 


LDA 


i 


1 203 


0700 


RDC 


7E 


1204 


5217 


STC 


5K-12 


1205 


3200 


ADD 


P-5 


1206 


3216 


ADD 


P+10 C-l 


1207 


0470 


AZE 


i 


1210 


0017 


COM 




1211 


5226 


STC 


5K-3 


1212 


2772 


ADD 


9'J+l 


1213 


0450 


AZE 




1214 


5307 


STC 


5M+5 


1215 


0065 


SET 


i 5 


1216 


7776 


-1 




1217 


0720 


RDC 


i 7E 


1220 


3335 


3I7D+35 


1221 


3456 


ADD 


8L+3 


1222 


5453 


STC 


8L CUP PAGE 


1223 


1000 


LDA 




1224 


0317 


1L 




1225 


1460 


SAE 


i 


1226 


0000 


£ REQUESTED LN 


1227 


7170 


JMP 


5S 


1230 


7312 


JMP 


5N-2 






CPASS 11 


: -PRINT LINES 


1231 


7422 


#5K JMP 


8Z CPAGE PRESET 


I 232 


0062 


SET 


i 2 


1233 


5334 


5T-4000 


1234 


7613 


JMP 


3Y CLABEL 


1235 


7501 


JMP 


3X C RETURN 


1236 


6314 


JMP 


3A 


1237 


0044 


SET 


4 


1240 


0003 


3 




1241 


0042 


SET 


2 


1242 


0003 


3 




1243 


6033 


JMP 


2A 


1244 


7254 


JMP 


5L CNO ASSIGNMENT 


1245 


7317 


JMP 


3Q-2 CPRINT P 


1246 


7560 


JMP 


3W-2 


1247 


6454 


JMP 


3F CUP P 


1250 


1000 


LDA 




1251 


0511 


2X 


CCONT 


1252 


7523 


JMP 


8R 


1253 


7261 


JMP 


5L+5 






CNO ASSIGNMENT 


12 54 


0074 


#5L SET 


i 14 


1255 


7766 


-11 





129 



JUISTj 


.16 LN=1331 


LAP6 


p 


CO NT 








1256 


7560 




JMP 


8W-2 CSPACE 


1257 


0234 




XSK 


i 14 


12 60 


72 56 




JMP 


p-2 


1261 


0073 




SET 


i 13 


1262 


7711 




-66 




1263 


0044 




SET 


4 


126 4 


0002 




2 




1265 


1324 




LDH 


i 4 


1266 


1420 




SHD 


i 


1267 


6600 




6600 


1270 


7302 




JMP 


5M 


1271 


1420 




SHD 


i 


1272 


2200 




2200 


1273 


7302 




JMP 


5M 


1274 


0074 




SET 


i 14 


1275 


7773 




-4 




1276 


7560 




JMP 


8W-2 


1277 


0233 




XSK 


i 1*3 


1300 


0234 




XSK 


i 14 


1301 


7276 




JMP 


P-3 


1302 


7560 


#5M 


JMP 


8W-2 CSPACE 


1303 


7615 




JMP 


8Y+2 CPRINT LINE 


1304 


1000 




LDA 




1305 


0317 




1L 




1306 


1460 




SAE 


i 


1307 


7776 




7776 CLAST LN REQUESTED 


1310 


7312 




JMP 


p+2 


1311 


7416 




JMP 


8B-1 CFINISHED 


1312 


3456 




ADD 


8L+3 CI 


1313 


5472 




STC 


8C CLN FOR PAGE HEADING 


1314 


0225 


*5N 


XSK 


i 5 


1315 


7235 




JMP 


5K+4 


1316 


7231 




JMP 


5K 






CPRINT NUMBER-LEADING SPACES. # 






£ OR p. 




1317 


1000 




LDA 




1320 


0457 




IP 


Cp 


1321 


0044 


#8Q 


SET 


4 


1322 


0000 









1323 


0450 




AZE 




1324 


7327 




JMP 


P+3 


1325 


7562 




JMP 


SW 


1326 


6004 




JMP 


4 


1327 


7544 




JMP 


8M 


1330 


0450 




AZE 




1331 


7526 




JMP 


SR+3 


1332 


7560 




JMP 


8W-2 


1333 


7552 




JMP 


8N 


1334 


7327 




JMP 


8Q+6 






CLIST HEADING 


1335 


1414 


#5T 


1414 Cp CONT 


1336 


1614 




1614 


1337 


1426 




1426 


1340 


4241 




4241 


t 


1341 


4712 




4712 

68=2000 C SYMBOL ASSIGNMENTS 



IN ACC. FORSYMBOL TABL 



130 



LIST>17 LN*1420 LAP6 

P CONT 

6D=2400 CMARK REGISTERS 
6E=2432 C ERRORS 
6F=2352 CM EMORY ALLOCATION 
6A=2642 C MNEMONICS 
6C=2700 CMNEMONICS 
66=2740 CMNEMONICS 

CLAP6 LIST 

C CONVERT WITH TELETYPE 

CSAVE QUARTERS 1-3 

CADD TELETYPE HERE 
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TELETYPE* 



LAP6 



VALUE 
iL 0317 
0457 
0544 
0033 
0046 
0065 
01 17 
0126 
0251 
0735 
0164 
0123 
0152 
0706 
0134 
0722 
0635 
0272 
0303 
0307 
0677 
0115 
0137 
0232 
0511 
0200 
0022 
0314 
0351 
0372 
0403 
0416 
0454 
046.4 
0475 
0512 
0540 
0346 
0203 
0207 
0624 
0610 
0230 
0212 
0215 
0217 
0222 
0225 
0247 
0641 
0604 
0243 
0567 
0576 
1164 



IP 
IT 
2A 
2B 
2C 
2D 
2E 
2F 
26 
2H 
2J 
2K 
2L 
2M 
2N 
2P 
2Q 
2R 
2S 
2T 
2U 
2V 
2W 
2X 
2Y 
2Z 
3A 
3B 
3C 
3D 
3E 
3F 
3G 
3H 
3J 
3K 
3L 
4A 
4B 
4C 
4D 
4E 
4F 
4G 
4H 
4J 
4K 
4L 
4M 
4N 
4P 
4Q 
4R 
5A 
5B 
SC 
5E 
5F 



1001 
1046 
1074 
1141 



LINE 
347 
515 
606 
30 
44 
64 
120 
131 
276 
1020 
175 
125 
161 
766 
140 
1004 
711 
317 
330 
335 
756 
115 
144 
254 
552 
211 
16 
344 
402 
424 
436 
452 
512 
523 
535 
553 
601 
376 
215 
222 
677 
662 
251 
226 
232 
235 
241 
245 
273 
716 
655 
266 
636 
646 
1234 
1044 
1112 
1142 
1210 



VALUE 
5H 1177 
1117 
1231 
1254 
1302 
1314 
1015 
1034 
1170 
1335 
2642 
2000 
2700 
2400 
2432 
2352 
2740 
0350 
0000 
0300 
0000 
1411 
1417 
1472 
1650 
1637 
1453 
1544 
1552 
i531 
1321 
1523 
1666 
1520 
1676 
1574 
1562 
1501 
1613 
1422 
0771 
0557 
0563 



5J 

5K 
5L 
5M 
5N 
5Q 
5R 
5S 
5T 
6A 
6B 
6C 
6D 
6E 
6F 
6G 
7A 
7B 
7D 
7E 
8A 
SB 
8C 
SJ 
SK 
8L 
SM 
8N 
8P 
8Q 
8R 
8S 
8T 
SU 
8V 
8W 
8X 
8Y 
SZ 
9J 
9M 
9N 



LINE 
1250 
1165 
1303 
1327 
1355 
1367 
1061 
1100 
1241 
1412 
1423 
1417 
1424 
1420 
1421 
1422 
1425 
2045 
2046 
2047 
2050 
1446 
1454 
1530 
1716 
1705 
1511 
1607 
1615 
1573 
1375 
1564 
1735 
1560 
1746 
1640 
1626 
1540 
1660 
1460 
1030 
622 
627 
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TELETYPE* 1 LN=1432 



LAP6 



p CONT 









Q1400 






CLAP6 TELETYPE 






C77- 


-END 


PRINT 


1400 


1020 




LDA 


i 


1401 


7773 




-4 




1402 


1140 




ADM 




1403 


0005 




5 




1404 


1460 




SAE 


i 


140S 


7703 




-4-70 


1406 


7410 




J MP 


P+2 


1407 


7416 




JMP 


8B-1 


1410 


7520 




JMP 


ST 


1411 


0225 


#8A 


XSK 


i 5 


1412 


7410 




JMP 


p-2 


1413 


1020 




LDA 


i 


1414 


0017 




17 


t- 


1415 


7562 




JMP 


8W 


1416 


0535 




KBD 


i CWAIT FO 


1417 


0076 


#8B 


SET 


i 16 


1420 


7300 




7I7D 


1421 


6015 




JMP 


15 






CPAGE PRESET 


1422 


0065 


#8Z 


SET 


i 5 


1423 


7773 




-4 




1424 


0054 




SET 


14 


1425 


0000 









1426 


7501 




JMP 


8X 


1427 


7520 




JMP 


8T 


1430 


0225 




XSK 


i 5 


1431 


7427 




JMP 


P-2 


1432 


1020 




LDA 


i 


1433 


0017 




17 




1434 


7562 




JMP 


SW C- 


1435 


7501 




JMP 


8X 


1436 


7520 




JMP 


8T 


1437 


1300 




LDH 




1440 


0773 




9J+2 


1441 


1420 




SKD 


i 


1442 


6300 




6300 


1443 


7452 




JMP 


P+7 


1 444 


0062 




SET 


i 2 


1445 


4772 




9J+2-4000 


1446 


7613 




JMP 


BY ENAME 


1447 


1020 




LDA 


i 


1450 


0063 




63 




1451 


7562 




JMP 


8W l» 


1452 


1020 




LDA 


I 


1453 


0000 


#8L 





CPAGE # 


1454 


7531 




JMP 


8P 


1455 


1020 




LDA 


i 


1456 


0001 




1 


C CONSTANT 


1457 


3453 




ADD 


P-4 


1460 


5453 




STC 


P-5 


1461 


3472 




ADD 


8C CLINE # 


1462 


0470 




AZE 


i 


1463 


7474 




JMP 


8X-5 



KEY 
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TELETYPE* 2 LN=1522 



LAP6 



P 
1464 
1465 
1466 
1467 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1500 

1501 
1502 
1503 
1504 
1505 
1506 
1507 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 

1520 
1521 
1522 

1523 
1524 
1525 
1526 
1527 
1530 

1531 
1532 
1533 
1 534 
1535 
1536 
1537 
1540 
1541 
1542 
1543 



CONT 
7560 
7560 
0062 
5663 
7613 
1020 
0000 
7531 
7501 
7520 
0065 
7707 
6014 

0047 
0000 
0415 
7511 
051$ 
1420 
1200 
7417 
1020 
0012 
7562 
1020 
3424 
7566 
6007 

0047 
0000 
7514 

0044 
0000 
7544 
7562 
7552 
7525 

0044 
0000 
0450 
7537 
7562 
6004 
7544 
0450 
7526 
7552 
7537 



JMP 8W-2 
JMP 8W-2 
SET i 2 
SS-2-4000 



CLN = 



CPRINT # 



8Y 

i 

CLN 

8P 

8X 

8T 

i 5 

CLINESIPAGE 
14 

RETURN 



CEND PRINT 



C CARRIAGE 



1544 0243 

1545 1060 

1546 0000 



JMP 

LDA 
#8C 

JMP 

JMP 

JMP 

SET 

-70 

JMP 
CKST> CARRIAGE 
#8X SET 7 



KST 

JMP P+5 

KBD 

SHD i 

1200 

JMP 8B 

LDA i 

12 

JMP 8W 

LDA i 

3424 

JMP 8W+4 CLINE FEED 

JMP 7 
CLINE FEED ONLY 
#ST SET 7 



JMP 
CPRINT 
#8R SET 



JMP 8M 

JMP 8W 

JMP SN 

JMP 8R+2 
CPRINT #* NO LEADS 
#SP SET 4 



AZE 

JMP 

JMP 

JMP 

JMP 

AZE 

JMP 

JMP 

JMP 
C# SRS 
#SM ROL 

STA 



8T-4 

**' LEADING 
4 



ZEROS 



p+3 

8W 

4 

8M 

8R+3 

8N 

8P+6 

3 

i 



NUMBER 
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TELETYPE* 3 LN=1612 



LAP6 



p 
J 547 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 

1560 
1561 
1562 
1 563 
1 564 
1565 
1566 
1567 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1600 
1601 
1602 
1603 
1604 
1 605 
1606 
1607 
1610 

161 1 
1 612 
1613 

16i4 
1615 
1616 
1617 
1620 
1621 
1622 
1623 
1 624 

162 5 
162 6 
1627 
1 630 
1 631 
1632 
1 633 
1634 



CONT 
1560 
7770 
6000 
1000 
1546 
1520 
3567 
6000 
6004 

1020 
0014 
1120 
1676 
4017 
1017 
0057 
0000 
5577 
0015 
0071 
7764 
1560 
0001 
1520 
0000 
3575 
0014 
0072 
7347 
0232 
7604 
0231 
7574 
6017 

0062 
5665 
0073 
0000 
0047 
0000 
1322 
1420 
1200 
6007 
1420 
7700 
6007 
7562 
0233 
7617 
1322 
1420 
1200 
6007 



BCL 1 

7770 

JMP 
#8N LDA 

8M+2 

SRO i 

3567 

JMP 

JMP 4 
CPRINT 

LDA i 

14 C SPACE 
#8W ADA i 

SU 

STC 17 

LDA 17 

SET 17 



STC P+7 

RTA 

SET i U 

-13 
#8V BCL i 

1 

SRO i 

TT CODE 

ADD P-3 CI 

ATR 

SET i 12 

-430 

XSK i 12 

JMP P-l 

XSK i i 1 

JMP 8V 

JMP 17 
CPRINT LINE OR LABEL 



#8Y 



SET i 2 
8S-4000 
SET i 13 



CCHARSILINE 
7 



CEND LAP LINE 





SET 



LDH i 

SHD i 

1200 

JMP 7 

SHD i 

7700 

JMP 7 CEND NAME 

JMP 8W 

XSK i 13 

JMP 8Y+4 

LDH i 2 CEND OF TT LINE 

SHD i 

1200 

JMP 7 
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TELETYPE* LN=1702 



LAP6 



P CONT 








1635 0225 




XSK i 


5 


1636 7650 




JMP RJ 




CTT 


LINE CONTINUES PAST 


1637 1000 


#8K 


LDA 




1 640 0002 




2 




1641 S647 




STC t>+6 


1642 7422 




JMP «Z CPA6E PRESET 


1 643 0062 




SET i 


2 


1644 5334 




ST- 4000 


1645 7613 




JMP 8Y CLABEL 


I 646 00 62 




SET i 


2 


1647 0000 




RESET 




1650 7501 


#8J 


JMP 8X 


1651 0067 




SET i 


7 


1 652 7304 




JMP 5M+2 


1653 0074 




SET i 


14 


1654 7765 




-12 




1655 7560 




JMP 8W-2 


1656 0234 




XSK i 


14 


1657 7655 




JMP P« 


-2 


1660 0073 




SET i 


13 


1661 7711 




-66 




1662 1302 




LDH 2 




1663 7620 




JMP 8Y+5 




CLIST HEADINGS 


1 664 3741 




3741 


CLN» 


1665 6112 




6112 




1666 1414 


#8S 


1414 1 


[VALUE LINE 


1667 5124 




5124 




1670 3750 




3750 




1671 3014 




3014 




1 672 3734 




3734 




1673 4130 




4130 




1674 1414 




1414 




1675 1412 




1412 






C TELETYPE 


CODES 


1 676 3540 


#8U 


3540 




1677 3542 




3542 




1700 3544 




3544 




1701 3546 




3546 




1702 3550 




3550 




1703 3552 




3552 




1704 3554 




3554 




1705 3556 




3556 




1706 3560 




3 3*0 




1707 3562 




3 562 




1710 3432 




3432 


CEOL 


1711 3576 


1 "p 


3576 


,/ is . \ 


1712 3500 




3500 


L-a 


1713 3514 




3514 


K 


1714 3516 




3516 


f~ 


1715 3532 




3532 


- 


1716 3526 




3526 


+ 


1717 3670 




3670 


\ 


1720 3506 




3506 


# 


1721 3576 


'• ■ 


3576 


- — Qfcse. 



PAGE BREAK 
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TELETYPE* 5 LN=1772 LAP6 

P CONT 

1722 3602 3602 

1723 3604 3604 

1724 3606 3606 

1725 3610 3610 

1726 3612 3612 

1727 3614 3614 

1730 3616 3616 

1731 3620 3620 

1732 3622 3622 

1733 3624 3624 

1734 3626 3626 

1735 3630 3630 

1736 3632 3632 

1737 3634 3634 

1740 3636 3636 

1741 3640 3640 

1742 3642 3 642 

1743 3644 3644 

1744 3646 3646 

1745 3650 3650 

1746 3652 3652 

1747 3654 3654 

1750 3656 3656 

1751 3660 3660 

1752 3662 3662 

1753 3664 3664 - 

1754 3576 3576 

1755 3576 3576 CMETA 

1756 3576 3576 C? 

1757 3572 3572 ~ 

1760 3512 3512 iu 

1761 3530 3530 , 

1762 3534 3534 , 

1763 3510 3510 B 

1764 3666 3666 C 

1765 3600 3600 i> 

1766 3674 3674 Ct 

1767 3566 3566 E* 

1770 3570 3570 C< 

1771 3574 3574 C> 

1772 3672 3672 C3 

1773 3524 3524 C* 

1774 3564 3564 C: 

7A=350 

7B=0 

7D=300 

7E=0 
CTELETYPE SUBROUTINES FOR LIST* PRINT MS* AND PRINT IN 
DEX 
CQ3 
£LAP6 TELETYPE 
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